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‘ ATA DECLARATIONS 
#89 


SYS 
Tab 


GETCHN = Get Channel Information 
SGETDEV = Get Device Information 
SGETDVI - Get Device Information 
DVI_DO_ITEM = Validate and move "desired item 
1333 Special Items 
1388 — path ond shadow set items 
1 Get UCB from channel or device name 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQuIPRENT ¢ EORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 

:* * 
:® © 
* ® 
-* t 
:® ® 
is THIS SOFTWARE. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN, ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
s® INCLUSION OF THE OPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
;* COPIES THEREOF hat NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:® OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
s® TRANSFERRED. ® 
*® e 
;® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
tt CORPORATION. “ 
: ® 
:® * 
ai ® 
*® @ 
zz 
-* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SOoOSOSCSOSCOSCOOSOOOOOSOOOOSOOSOSoOoSoOo 
SDOOOOCOCOCOOCOCOCOOOOOSOOOOOOOCOoOO 


SOCCCOCCOCOC COCO OCOOCOOCOOOOOOoOoO 


RAAAAKAAAASAKAAETAAATAARATAAAAAAARATEAAAARARAAARAAAAARARAAAARAARAAAAAAAEAEAAAEE 
: AUTHOR: Peter H. Lipman, CREATION DATE: 20-0ct-1981 
MODIFIED BY: 
V03-022 CWwH3022 CW Hobbs 25-Jul-1984 
roenee special items for shadow set information to call 


loadable Supgers routine in mount verification (sysloa). 
This makes n support of shadowing much simpler. 
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v03-021 L rry Yetto 20-JUL-1984 13:01 


y0512 La 
Fx bug in MEDIA_ code 


v03-020 LY0502 Larry Yetto 10-JUL-1984 10:12 
Add Sa for the MEDIA_NAME and MEDIA_TYPE item codes 


v03-019 T Todd M. Katz weds ARAL r-1984 
Her support for full Length ( i.e. = L NAMLENGTH ) 
logical volume names. This support is accomplished through 
the following changes: 
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1. Change the scratch storage area within the local stack 
storage ty LOGSC_NAMLENGTH to 4 bytes. This scratch area 
will now 2 uses only to temporarily store values up to a 
longword ze. 


~ 
. 


Sct this scratch stora , area had also been used to 
temporarily s re character stri not. Now, whenever a string 
must temporar y be stored, a KRP is 

store e space. The KRP is ollecetes from the lookas List 
the first time temporary storage required for a character 
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string. if remains allocated, and maybe utilized for 

tenor er ly storing other character strings, for the 
remainder of the current SGETDVI invocation at which time it 
is returned to the KRP lookaside List. 


v03-018 RKSO0018 RICK SPITZ 11-APR-1984 
Enhance DVI_USE_DEVNAM to redirect references from a 
physical terminal UCB to the associated logical UCB. 


v03-017 LMP0221 L. Mark Pilant, 30-Mar-1984 16:35 
gnsoge  UCRSL OWnlsC to ORBSL_OWNER and UCBS$W_VPROT to 


VO3-016 MHB0115 Mark Bramhall 20-Mar-1984 
Check for network device in SPC_TT_PHYDEVNAM. 


V03-015 MHBO104 Mark Bramhall 1-Mar-1984 
Added SPC_TT_PHYDEVNAM for DVI$_TT_PHYDEVNAM. 


VO3-014 CWH3014 CW Hobbs 28-F eb-1984 
Fix accvio when DVIS_VOLSETMEM item is directed at a non-mounted 
device. Add special routine to get DVIS$_FREEBLOCKS for xaQP 
or 088 “ several new routines for dual-pathed devices and 
shadow sets. 


v03-013 HHOO002 Hai Huang 01-Feb-1984 
Add job-wide mount support. 
v03-012 TCM0002 Trudy C. Matthews 04-Jan-1984 


Document relationship between invocations of DVI_ITEM_CODE 
and DVI$_xxx item codes defined by SOVIDEF. Add warning 
to DVI_ITEM_CODE if this relationship is not preserved. 


v03-011 KFHOO06 Ken Henderson 9 Sep 1983 
Add documentation about adding itemcodes. 
Add SPC_DEVLOCKNAM, SPC_VOLSETMEM. 
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v03-010 KFHOOOS Ken Henderson 30 Jul 1983 
Removed debugging definitions 
v03-009 TCM0001 Trudy C. Matthews 24-Jun-1983 


Add SPC_ALLDEVNAM: 
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1 V03-008 DMW4040 DMWalp 31-May-1983 
: Intergate new logical name structures. 

; 1 V03-007 KFHO004 Ken Henderson 18 May 1983 
1 Changed SPC_FULLDEVNAM to new spec. 
! Added HEXSTR datatype to macro. 
1 v03-006 KFHO003 Ken Henderson 29 Apr 1983 
is Added SPC_FULLDEVNAM: 
11 v03-005 KFHOO02 Ken Henderson 11 Mar 1983 
11 Made .WARN for undefined item-codes more 
i specific. 
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V03-004 CwWwH1002 Hobbs 11-Mar-1983 
Add special iten’ fouk nes for DVIS_PID and DVIS _ACPPID 


v03-003 KFHOOO1 Ken Henderson 23 Feb 1983 
hddede ed name of module to SYSGETDVI. 
oett ITEM_CODE macro to replace ITEM 
CIAL macros. Moved tables and code 
YF seyeceTbvi ~— 


v03-002 PHLO103 24-Jul-1982 
Fix return peel oy 4 Ose" 8 Soe $S$_ CONCEALED if device 
was concealed. It was ocuere being returned as SS$_NORMAL 
unless their was an error 


v03-001 KDM000 thleen D. 28-Jun-1982 
haded DEVDEF, sPeBDEr SPROET, "ond SPSLOEF- wi comment. 
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: DEVO's GUIDE TO GETJPI/GETSYI/GETDVI 


; 
sOverview 


sThese three system services are table-driven. The macro definition files 
sthat he p define their tables are shared with DCL and the RTL. This results 
sin new item-codes becom ng useable with DCL's FSGETXXI lexical functions and 
zthe RTL*s LIBSGETXXI routines automatically. Additionally, new SYSBOOT 
sparameters become item-codes to the GETSYIs. 


Y 
:The macro definition files are called JPITABLE.MAR, SYITABLE.MAR, and 
sDVITABLE.MAR, and Live in MASD$:<VMSLIB.SRC>. During a systembuild the 
jare inserted into the Library SYSS$LIBRARY:SYSBLOMLB.MLB. DCL and the RT 
sand SYS use this lL brary to define their GETXXI tables. The system 
sparameter file <SYS.SRC>SYSPARAM.MAR has also been conditionalized to be 
sused to define GETSYI item-codes and is also inserted into SYSBLDMLB.MLB. 


OOCCGCOCCCOOOOOCOoCOoO 


sNOTE: SYSBLOMLB.MLB is a general macro bvecery for holding macro 

3 definitions that are shared between facilit.es, but will not 
3 ship to the customer. 

When adding an item-code, at least two files need to be edited. One of the 
smacro files Listed above, as well as an SDL file that defines the 16-bit 
snumber which is the user-visible item-code. Also, if a SYSBOOT parameter is 
sadded, an SDL file needs to be updated to define the new GETSYI item-code. 


zThe GETOVI service actually uses onty one table, but the GETSYI and GETJPI 
sservices use several. The JPITABLE file defines all the tables for GETJPI 
sand the SYITABLE file defines all the tables for GETSYI. The different 
stables group the peices of data according to method of retrieval. 


:In some cases, the peice of data to be returned by the service requires 
sspecial processing to fetch, calculate, or format it before returning it. 
zsIn these cases, the code of the system service needs to be enhanced. 

3And if the data returned is a new format for DCL. the lexical function 
smodule of DCL may need to be enhanced as well. Possibly the RTL code may 
zsneed enhancing as well. 
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;The Macros 


—OOon 
oo 


3A two-level scheme gutete or qovvareg whe oe item BS dy used by the three 
sservices and the other facilities. mye ned geere alled 

3 JPI1_GENERATE_TABLE, $v1 "GENERATE. TABLE, or DVI_GENERATE FABLE)  eentaine 
smult iole ca calls to & lower-level Macro (celled JPi _ITEM_CODE, svi ITER CODE, 
; ITEM_CODE) yh ch actually defines each element in vthe 

3W ile the GENERATE_TABLE macros are commonly defined, _IT eM. CODE macros 
sare individually det! ined according to the need A faci et ty (For instance, 
sthe LEXICON module must store the name 9 the #92 an ASCIC string - in 
sorder to match it with the string supplied in the F GETXXI funct on call; 
ithe other facilities need not store the item name in text.) 


tWhen an item-code must be added, an additional call to the _ITEM_CODE macro 
imust be added to the appropr ate _GENERATE_TABLE macro. In the case of GETJPI 
sand GETDVI, the GENER ABLE macro is cgtined the JP ITABLE and DVITABLE 
smodules. for GETDVI, an Ttem-code definition also be added to S$DOVIDEF. 
3BE SURE THAT THE ORDER" OF THE ITEM CODE DEFINITIONS. In. SDVIDEF IS THE SAME AS 
;THE ORDER OF 4 03 Re OF DVI_ITEM_CODE IN DVITABLE. The item-code number 
ierrsere by DVIDEF will be uséd as an index into DVI_ITEM_TABLE to locate 
he appropriate information about that item. 


;The SYI_GENERATE_TABLE macro is defined by the SYSPARAM module 

s> all the calls fo the PARAMETER and PQL macros are ‘collected’ into 

‘Syl. GENERATE TABLE macro. When used in that mode (when GET Het a Gelined). 
sthe SYI_ITEMTABLES macro also becomes part of the SYI_GENERATE_TABLE macro. 
$l ITERTABLES is defined in the sv ITABLE module and Contains all the calls 
zto the SYI_ITEM_CODE macro that are Not related to SYSBOOT parameters. 

sWhen getsyTsu iS defined in SYS PARAM, the PARAMETER macro does not allocate 
sor store menory but rather passes some of the arguments to it on through via 
+ cott fo svi atfen. CODE. That is how all the calls to PARAMETER become calls 
ito €. 


The pene EaBot the situation that exists when the s mbol GETSYISW is defined. 
tems are defined by the macro SYI_ITEMTABLES in SYITABLE.MAR. 
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COoOooooooooooooooooooooooooo 
SOCOGSCOOCSOOSCSOOSOSCSOSOSOSOOOSOSOOSOSOOOCOSoOOOOSoOSoOS 


So 


The SYSBO0O ao are defined by each invokation of the PARARE TER macro in 
7SYSPARAM.MAR. Note that each invokation of the PQL macro in SYSPA 
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0 

0 

0 RAM .MAR 

0 4 3 invokes the PARAMETER macro twice. When GETSYISW is defined she ceaeee™ 

0 smacro merece Pittn its arguments through to a call to the Svi_I M_COD 

; macro. The SYI_ITEM_CODE macro is locally defined as needed by” ads facility. 
a Sesaaensonseraceneseanaaronceoasoeeceasceaneaesecoweceaene sec e seen ean vr aasmaaocee + 

5 3! SYI_GENERATE_TABLE H 

31 SYI_ITEMTABLES H H 
aT | PARAMETER ' PQL H 

° 31 | PARAMETER | PARAMETER 

piSYI_ ITEM_CODE: ‘svt _ITEM_CODE: 'Sv] _ITEM_CODE:SYI_ITEM_CODE: 'SYI ITEM, CODE! 

00 i / \\ / 

000 : FROM SYITABLE.MAR FROM SYSPARAM.MAR 

0 : (NON-SYSBOOT ITEMS) (SYSBOOT ITEMS) 
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Macro v04-00 
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$ Page 
SYS.SRCISYSGETDV os (8) 
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System Services to Get Device Information 


SGETDEV and SGETCHN are obsolete and frozen starting with v3 
S$GETDVI replaces them and all new items are only available 
via this system service. 


: MACRO LIBRARY CALLS 


Define AQB offsets 

Define CCB offsets 

Define CDDB offsets 
Define adapter type codes 
Define DDB offsets 


se 

Define Device/Volume Information constants 
Define Job Information Block offsets 
Define Get lock info codes 
Define logical name structure offsets 
Mount List entry offsets 
Define Object’'s Rights Block offsets 
Define Process Control Block offsets 
Define Processor Register numbers 
Define Program Status Longword fields 
Define RVT offsets 
Define SB offsets 
Define system status values 

terminal DEVDEPEND bits 
Define terminal DEVDEPND2 bits 
Define terminal UCB offsets 
Define UCB offsets 
Define VCB offsets 
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DEF 
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LOCAL MACROS 
Generate device information control table - $GETDEV and $GETCHN only 
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-MACRO GENTAB OFFSET.LENGTH 
-BYTE LENGTH 
~-ENDM = GENTAB 


Oooo 


SOooooooooooo 


0 
1 
3 Generate field definitions for item value long word 
By -MACRO DVIBITS NAME, SIZE 
6 VI_V_'NAME' = DVI BIT 
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Generate the item-code table 
-MACRO DVI_ITEM_CODE 


Page 
SGET DVI.MAR;1 


7 
(5) 


SYS 
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NAME ,- 3; of the item-code 
SPECIAL,- : flag 
SOURCE,=- 3; of the data 
DTYPE,=- ; of returned value 
BITPOS,- : of bitfield data 
OUTLEN,=- ; of returned value 
STRUCT,= ; where the data lives 
DEVTYP : flag 
IF NOT PEt INED DVIS_ "NAME 
IF_FALS «WARN ; DVIS_"NAME IS NOT DEFINED IN STARDEFAE.SDL 
-IF NE ITEM _CODE-DVIS$_ "NAME 
ENDC eWARR ; DEFINITION FOR ITEM CODE ‘NAME IS OUT OF ORDER 
.ENDC 
ITEM_CODE = ITEM_CODE + 2 


IF IDENTICAL <SPECIAL><T> 
ADDRESS SPC_"NAME' 
. IF_FALSE ; IDENTICAL <SPECIAL><T> 


IF Aphid <SPECIAL><F> 
«WARN ; ERROR INVOKING DVI_ITEM_CODE FOR DVIS_'NAME 
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-ENDC ; DIFFERENT <SPECIAL><F5 

XTYPE = DVI_C_VALUE 

-LIF IDENTICAL <DTYPE><HEXNUM>, XTYPE = DVI_C_VALUE 

-LIF IDENTICAL <DTYPE><DECNUM>, XTYPE = DVI~C~VALUE 

- LIF IDENTICAL <DTYPE><PRVMSK>, XTYPE = DVI~C_VALUE 

-LIF IDENTICAL <DTYPE><PRTMSK>, XTYPE = DVI_C_VALUE 

- LIF IDENTICAL <DTYPE><HEXSTR>, XTYPE = DVI~C_VALUE 

- LIF IDENTICAL <DTYPE><PADSTR>, XTYPE = DVI~C~VALUE 
0 - LIF IDENTICAL <DTYPE><CNTSTR>, XTYPE = DVI—~C"CSTRING 
00 - LIF IDENTICAL <DTYPE><STRDSC>, XTYPE = DVI_C~VALUE 
0 - LIF IDENTICAL <DTYPE><BITVEC>, XTYPE = DVI~C~VALUE 

- LIF IDENTICAL <DTYPE><BITVAL>, XTYPE = DVI_~C~BOOLEAN 

-LIF IDENTICAL <DTYPE><STDUIC>, XTYPE = DVI~C~VALUE 

- LIF IDENTICAL <DTYPE><STDTIM>, XTYPE = DVI~C"VALUE 
. ~ LIF IDENTICAL <DTYPE><ACPTYP>, XTYPE = DVI_~C~VALUE 
: IF IDENTICAL <STRUCT><RVT> 

OFFVAL = DVI_C_*SOURCE' 

~ 1F_FALSE 

OFFVAL = ‘STRUCT'S"SOURCE’ 

-ENDC 

-LONG <OFFVAL@DVI_V_OFFSET> ! - 

<"OUTLEN’@DVI°V BYTCNT> | 
<DVI_C_"STRUCT'SDVI_V “STRUCT> '- 
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<XTYPE@DVI_V_DATATYPE> ! = 
<DVI_C_'DEQTYP'a@DVI_V_DEVTYPE> ! = 
<'BITPOS'aDVI_V_POSTTS 

-ENDC ; IF_FALSE IDENTICAL <SPECIAL><T> 


.ENDM = DVI_ITEM_CODE 


LOCAL SYMBOLS 
SGETDEV, SGETCHN Argument List Offset Definitions 


00000004 CHAN_DEVNAM=4 ; 1/0 channel number 
3; Device name descriptor 
00000008 PRILEN=8 ; Address to store Length of primary string 
444 PRIBUF=12 ; Address of hg buffer descriptor 
000001 SCDLEN=16 ; Address to store Length of secondary strin 
00000014 SCOBUF=20 ; Address of secondary buffer descriptor 
; Bit Field Definititions for Item Value long word 
00000000 DVI_BIT = 0 
DVIBITS OFFSET,10 3 Offset in specified data structure 
DVIBITS BYTCNT,9 3; Size of item in pytes 
DVIBITS STRUCT,3 3; Structure (UCB, VCB) 
DVIBITS DATATYPE, 3 3; Type of data item 
DVIBITS DEVTYPE, : Device to which item is specific 
DVIBITS POSIT,5 ; Bit position of BITVA, dtype 
DVIBITS SPCLFLG,1 ; THIS BIT MUST BE BIT 31!!! 


; Datatype symbols for $GETDVI 


0000000 DVI_C_VALUE = 0 
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Binary Value 


0000001 DVI-C"CSTRING = ; Counted String 
00000002 DVI_C_BOOLEAN = 2 ; Bit value 
; Mount type codes for SPC_DEVLOCKNAM 
00000001 : DVI_K_PRIVATE = 1 
00000002 DVI-K-SHAREABLE = 2 
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; Structure code symbols for $GETDVI 
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00 0 § ‘ DVI_C_UCB = 0 ; Unit Control Block 

00 1 4 DVI_C_DDB = 1 ; Device Data Block 

B66 § 5 DVI_C_VCB = § ; Volume Control Block 
bh $ DVI_C_RVT = ; Relative Volume Table 
0 ; Be DVI_C_AQB = 4 ; ACP Queue Header Block 
00 5 8 ‘ DVI_C_ORB = 5 ; Object’'s Rights Block 

; ; Device type codes for $GETDVI 
00 ; DVI_C_ANY = 0 ; Any device 
Bobb g DVITCTDISK = 1 : Disk only 
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vices to Get Device Informat 7 
TIONS - 
404 ; 
i 
409 | DVI ~£-VOLCOUNT = 0 
4 8 DVI-C"R TDEVNAM = } 
409 DVI-C~ “NEXTDEVNAM = 
21) ; Local Storage Offsets 
218 7 SOF FSET 4 NEGATIVE, <~ 
414 <PRIMARY_UCB, 16>, 
415 SCURRENT™ UCB .B>, 
416 RETLEN ABR, - 
i sat 
‘13 bse, SIZE,0>, - 
421 SAVED Astaor, 
$55 IOUNLOCK, 
4 > 

PRIMARY_UCB: 

CURRENT zucb: 

RETLEN_ADR 

SCRATCA: 

KRP: 


SCRATCH_SIZE: 
STATUS:~ 


ety ASTADR: 
IOUNLOCK 


PRIM 


ASSUME 


ASSUME 


LOCAL DATA 
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RETLEN = STATUS#2 
ARY VCB = PRIMARY te 
SECONDARY_UCB = PRIMARY 
SECONDARY VCB = PRIMARY “Hepsi 
CURRENT_VCB = CURRENT_UCB+4 


The following ASSUMES guarantee the consistency of the ACP type 
definition in SAQBDEF and the user visible constants in SDOVIDEF 
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-DEVCHAR ,4 
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~DEVIYP 
~DEVBUFS 


$41 
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SEp-1986 08:53:82 EsvsvSacISYSGEYDVI.RAR; 1 


Page (2) 


Relative Volume Table Item Sub Codes for SGETDVI - in OFFSET field 


Count of volumes in volume s 


set 
; Device name for first volume in vol set 
; Device name for next volume in vol set 


Primary UCB/VCB, Secondary UCB/VCB 
Current UCB/VCB 

Address to return Length 

Scratch storage - 4 b tes ONLY 
aqerese of allocated 

Size of local ae 

Returned Success ante y 

Saved ASTADR paramete 

Need to unlock 1/0 data base if LBS 


Return Length $GETDEV, SGETCHN 
Primary VCB address 
Seconday UCB address 


; poceneers Is address 


Current VCB address 


; FILES-11 STRUCTURE LEVEL 1 
v2 i, me STRUCTURE LEVEL 2 


; NETWORKS 
: ee 1/0 
JOURNA 


Device Information Control Table - SGETDEV, SGETCHN 
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tem vi 
DECLARATION =SEP-1 SYS.SRCISYSGETDVI.MAR;1 (5) 
: 4 4 GENTAB  -Pevoeren 4 ; DEVDEPEND = device dependent info 
4 GENTAB W_UNIT,<2+ ; Device unit number 
4 : 3; DIBSW_DEVNAMOFF <-- 0 
4 GENTAB L_PID,4 ; Device owner process identification 
4 $ GENTAB L_OWNUIC,4 3; Device owner user identification code 
g 4 GENTAB W-VPROT,2 ; Device protection mask 
4 } GENTAB WIERRCNT 2 ; Device error count 
A 4 GENTAB L_OPCNT,<4+2> ; Device operat ons complete count 
460 ; DIBSW_VOLNAMOFF <== 0 
46) GENTAB W_RECORDSZ,2 ; Blocked Record Size 
B4 C 46¢ -BYTE -BIBSL_MAXBLOCK+DIBST_DEVNAME ; Skip over string area 
D 6 GENTAB f MAKBCOCK 4 ; Disk size in blocks 
00 3 r+ ¢) : -BYTE ; End of table 
0 fF 46 WETTITITITILTILITITITTTTTiTiliiitiiiiiiii 
OOF ae? ; 
: re : GENERATE THE ITEM-CODE TABLE 
$4 ‘76 [eeeeeeeeeeeeeerererereeeeeeneeeneeeeeeee 
QOOF 476 bVI_ITEM_TABLE: 
Mat 474 ; Index 0 is not used by EXESGETDVI 
QOOF 475 ; 
00000000 Bau 478 «LONG 0 
00000002 31 oc8 ITEM_CODE = 2 
0013 480 DVI_GENERATE_TABLE 
00000127 O25F 482 MAX_ITEM_CODE = <<.-DVI_ITEM_TABLE>/2>-1 
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-SBTTL SGETCHN = Get Channel Information 
: EXESGETCHN - Get channel information 


T - 
sscbie” dt the 


S Thi service provides the capability to recrtove information about a 
; dev ce that is assigned to a channel and its associated device if any. 


INPUTS: 
CHAN(AP) = 1/0 channel number 
PRILEN(AP) = Address to store Length of hes ot B device information. 
PRIBUF(AP) = Address of pri aery butter descrip 
SCDLEN(AP) = Address to store length of pecenkery “device information. 
SCDOBUF (AP) = Address of secondary buffer descriptor. 
R4 = Current process PCB address. 


; OUTPUTS: 
RO low bit clear indicates failure to retrieve device information. 


RO = SS$_ anes oA - priaery ”  Pycersery buffer descriptor 
tannot be read by Se ing access mode, or primary 
buffer, primary tes length, secondary buffer, or 
secondary buffer length cannot be written by calling 
access mode. 


RO = SS$_IVCHAN - invalid channel number specified. 


RO = SSS hoary - spect ti Tt,, channel is not assigned to a 
oa ceort access mode does not have 
rivilege to access the channel. 


RO Low bit set ‘eat successful completion. 


RO = SS$_BUFFEROVF - normal completion, all characteristic 
Information did not fit in specified buffer(s). 


RO = SS$_NORMAL = normal completion, all characteristic 
Information transfered. 


DODD PPP PU PUPS SUSU LU SUSIE SISSIES ISIS ISSUES USSF 
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0000 -PSECT YSEXEPAGED 
OFFC ENTRY EXESGETCHN “M<R2,R3,R4,R5, ot R7,R8,R9,R10,R11> 
51 O98F ‘CF 3 MOVAB - iY USE_CHAN,RI ; Use channel parameter 
0255" 31 00 BRw E_GETDE? ; Join GETDEV code 
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- Get Device Informat SEP- SYS.SRCISYSGETDVI .MAR; 1 
-SBTTL SGETDEV = Get Device Information 


T - 
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: EXESGETDEV = Get device information 


3; This Service provides the capability to retrieve information about a 
a 


t 
E 
device and its associated device if any. 
INPUTS: 
DEVNAM(AP) = Address of device name descriptor. 
PRILENCAP) = Address to store length of primary device information. 
PRIBUF(AP) = Address of pr saery buffer descriptor. 
SCDLEN(AP) = Address to store length of secondary device information. 
SCDBUF (AP) = Address of secondary buffer descriptor. 
R4 = Current process PCB address. 
OUTPUTS: 


RO Low bit clear indicates failure to retrieve device information. 


RO = SSS$_ACCVIO = Device name string. device name strin 
descriptor, primary buffer descriptor, or secondary 
buffer descriptor cannot be read by calling access 
mode, or primary buffer, pe Smory Syl ter Length, 
secondary buffer or secondary buffer length cannot 
be written by call ng access mode. 

SS$_IVDEVNAM = Device name string contains invalid 

coer en ierse or no device device name string descriptor 
specified. 


RO 
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RO = SS$_IVLOGNAM = Zero or greater than maximum length device 
name string specified. 


0 
O0A 
O0A 
OOA 65 
OA 06 
a RO = SSS$_NONLOCAL = Device exists on a remote system. 
OA e3 RO = SSS$_NOSUCHDEV - Specified device does not exist on host 
8 pA 4! System. 
GOA ie RO Low bit set indicates successful completion. 
OA 74 RO = SS$_BUFFEROVF - Normal completion, all characteristic 
. o Information did not fit in specified buffer(s). 
A 58 RO = SS$_NORMAL - Normal completion, all characteristic 
A 4 Information transfered. 
A 3a 
OFFC A ? -ENTRY EXESGETDEV May i Natali deta hen pened lng bhi 
51 0983°CF ‘ f § MOVAB W*DVI_USE _DEVNAM.R1 ; Use device name descriptor 
248° 1 Z BRW EXE_GETDE? 
0000 5 -PSECT YFSSSYSGETDVI 
af ; ; R1 = address of USE_CHAN or USE_DEVNAM entry point 
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ENABLE LSB 
EXE_GETDEV: 
MOVAL SCRATCH_SIZE-4(SP),SP ; Reserve scratch storage 
3 ng luge uninitialized return status 
CLRQ -(SP) ; Init SAVED_ASTADR and IOUNLOCK flag 
; The above stack locations are all referenced by offsets from FP 


Get CHAN or DEVNAM parameter 


MOVL CHAN_DEVNAM(AP) ,RO : 

JSB (R1) 3; Set up te to be used 

BLBC RO,40$8 3; Branch if error 

MOVL § #SSS_NORMAL,STATUS(FP) ; Init normal success status 

; Overwrite possible SS$_CONCEALED 

CLRL RS ; ov mery device items 

mOVa PRILEN(CAP) ,R7 ; Get primary buffer parameters 

BSBB FILBUF 3: Fill prigery buffer 

BLBC RO,40$ 3; Branch if error 

MOVL #1,R 3; Secondary device items 

MOVa SCOLEN(AP) ,R7 : Get secondary buffer parameters 

BSBB FILBUF ; Fill secondary buffer 

BLBC RO,40$ ; Branch if error 
30$: MOVZWL STATUS(FP),RO 3; Get normal or overflow status to return 
40$: aes IOUNLOCK (FP) ,50$ ; Branch if must unlock 1/0 data base 
50$: JMP G* IOCSUNLOCK 3; Unlock 1/0 database and return 


-DSABL LSB 


3 INPUTS 

: R7 = Address to return Length of data stored 

3 R8 = Descriptor of DIB buffer 

3 R9 = 9 if getting primary characteristics 

: = 1 if getting secondary characteristics 

3 OUTPUTS: 

3 RO = Status 

3 R1 through R11 altered 

Accv10_1 
BRW ACCVIO 

FILBUF: TSTL R ; Any buffer specified? 
BNEQ 5 3; Branch if yes 
BRW 1608 ; No, nothing to do 

5$: MOVa PRIMARY _UCB(FP)CR9J,CURRENT_UCB(FP) ; Set current UCB/VCB address 
MOVL R7,RETLEN_ADR(FP) ; Save address for return lengt 
IFNORD #8,(R8),ACCVIO_1 ; ACCVIO if cannot read out buf decriptor 

4 Rov 4(R8) ,R? ; Get the address 
MOVZWL (RB) ,R6 ; and the size of the buffer 
ASSUME DIBSK_LENGTH LE 512 
4 CMPW R6, #0TBSK_LENGTH :; If buffer is larger than needed 

BGEQU 206 ; then use the maximum size for probe 
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V 
D8 AD 0601 4 i f t$ poy C5 7° SUPPERS -STATUSEPP? ; Record buffer overflow status 
56 74 BF A C 4 gps: MOVZBL #DIBSK bEvE TH RG 3; Actual size of data to be returned 
DA AD 6 60 C 4 $: VW Re FETE N(FP) 3; Remember how much data will be returned 
D IFNOWRT R6,(R7 Agtyie 3; Can entire buffer be written? 
5B FD26 CF DE D MOVAL W*DEVTAG,R : Address of item Lengths 
b D CLRL R 3; No item return Length 
7E D D MOva R6,-(SP) ; Save DIB descriptor 
6 3 E ¢ PUSHL R 3; Scratch copy of Length 
SA E 408 CVTBL = (R11)4#,R10 ; Length } ffer for next item 
1 E 6 BGTR 3 & ; Branch if item to move 
ke E BEQL | 3 Branch if end 9 table 
SA on rf ; ? a 8 g-R10 3; Skip over section of DIB 
59 $ co E 269 50$: ADOL ie Ro 3; Next item code 
6E A 01 F 6 CMPL R16, (SP) 3; Enough room for this item? 
. oa F 66 BLEQ 60$ 3; Branch if yes 
SA E it F 66 MOVL spe) R10 3; No, use what space is left 
1 F 664 BLEQ 90$ ; ALL done if no space left 
01 F 665 608: BSBW Dy .DO_ITEM ; Put the next item in the DIB 
57 A ¢ F 066 $: ADDL R10,R 3; Next free location in DIB 
6—E SA C 8 60 SUBL R10, (SP) 3; Adjust space Left in DIB 
pc 3s «di14 3 3 BGTR 40$ ; Branch if room for another item 
; The $s now ed in except for the device controller name string 
0 rst The DIB i filled i f he devi Ll i 
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671 ; and the volume name string and their respective offset locations. 
or¢ ; DIBSW_DEVNAMOFF and DIBSW_VOLNAMOFF are currently 0. The string area 
0 675 ; is deliberately NOT backgrounded so that no data is written except that 
0 ore 3 which is explicitly returned. 
5 of8 $0s: POPR #*A<R5 ,R6,R7> ; Clean off scratch cell, 
0 67 3 recover DIB descriptor 
gh 0 978 SUBW #01 0ST DEVNARE .R6 3; Room for CTLNAM and VOLNAM string 
0 67 BLEQ 150$ ; Branch if no room for strings 
33 0 680 MOVAL DIBST_DEVNAME(R7) ,R3 ; Starting adr in DIB for strings 
55 —€B AD D 13-681 MOVL. CURRENT _UCB(FP) ,R5 : Address of UCB 
55 28 AS 14 1 1 6 § ADOL3 ropes! NAME ,UCB$L_DDB(RSS .R 3; Address of ASCIC controller name 
54 85 A 1 6 MOVZBL (R5)+,R4 3; Size in R4, adr in R 
06 13 1 684 BEQL :; Branch if controller name null 
58 OE A i) 685 MOVAL DIBSW_DEVNAMOFF(R7),R8 ; Address to store offset to string 
28 C1 6 § BSBB VE_NAM 3 Move the name, set up the offset 
55 EC AD D 687 110$:  MOVL RRENT_VCB(FP) RS : Address of VCB 
OD 1 6 BEQL 3; Branch if volume not mounted 
55 14A5 0D 6 MOVAL VCBST_VOLNAME(R5),R5 3; Adr of 12 byte blank filled volume name 
54 0 D 6 MOVL 3; Size of name str ng 
58° 20 a7 (OD 69 MOVAL DIB$W VOLNAMOFF(R7).R8 ; Address to store offset to string 
18 «1 $36 BSBB MOVE _RAME ; Move the name, set up the offset 
eee 3; DIB is now totally filled in, return Length to caller if requested 
50 £4 AD 96 1508: MOVL  RETLEN_ADR(FP),RO : Address to return DIB Length 
OA rh $35 BEQL ig0s 3; Branch if none add Be ° 
4 9 IFNOWRT #2,(RO) ,ACCVI ; Branch if length cannot be written 
60 DA AD B80 034 MOVW RE LENCE) | (R ) ; Return the DIB Length 
50 6(01 f r p 160$: ROVEuL #SS$_NORMAL ,R ; Set successful completion 
4 702 ACCVIO: 
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poy. #SS$_ACCVIO,RO ; Access violation 
; Move name string and fill in DIB offset to it 
: INPUTS: 
: R3 = Address to store data 
3 R4 = Byte count to store 
3 R5 = Source string to store 
: Re = Count of bytes remaining in output buffer 
; R? = Base address of DIB 
: R8 = Address tc store offset to string 


: R3 = Updated address to store next string 

; Re = Updated space remaining to store next string 
3 RO through R5 altered 

3 Other registers preserved 


MOVE _NAME : 
DECL R ; Room for byte count for string 
BLSS 208 ; Branch if not, don’t store offset 
SUBL3 R7,R3,RO : Offset to string 
MOV RO, (RB) ; Store offset in DIB 
MOVB R4,(R3)+ 3 Store count for ASCIC ating 
CMPL R4,R6 : Enough room for rest of string? 
BLEQ 10 . + Branch if yes 
MOVL R6,R4 ; No, use what is left 
10$: SUBL R4,R6 ; Keep track of space remaining 
208 paves R4,(R5),(R3) ; Store the string 


RO Low bit clear indicates failure to retrieve device information 


L 
SYSGETOVI = System Services to Get Device Informat 16-SEP-1984 02:14: AX/VMS Macro v04-00 P 1 
Miteetty sce tau! - Get Device Information mi iets 7 86:33:93 SYS.SRCISYSGETDVI.MAR;1 oe (8) 
3 - -SBTTL SGETDVI = Get Device Information 
f 4 ; FUNCTIONAL DESCRIPTION: 
7 4 : This service allows a process fo get information about a device 
f 2 : it currently has a channel assigned to, or one it explicitly names. 
f 43 ; CALLING SEQUENCE: 
7 ¢ ; CALLS/CALLG 
749 : INPUTS: 
7 f34 : EFNCAP) = number of the event flag to set when all of the requested 
7 P36 3 data is valid. 
7 753 ; CHAN(AP) = channel to which desired device is assigned or 0 
7 754 ; if specifying device by name. 
7 755 ; DEVNAM(AP) = address of a string descriptor for the device name 
7 £38 3 or logical device name desired. This is only used 
7 757 ; if the channel parameter is 0. 
7 758 ; ITMLST(AP) = address of a List of item descriptors of the form: 
0370 980: ‘ 
0370 161 ; {ITEM CODE! BUF. LENGTH | 
0 , res ; ! BUFFER ADDRESS 
0370 765: ! ADDRESS TO RETURN LENGTH ! 
bee eg : geen: reeseeeceeecooocoescecocen 
6 f poe : IOSB(AP) = eéérese of a quadword 1/0 status block to receive final 
; atus 
7 16 ; ASTADR(AP) = address of an AST routine to be called when all of the 
7 771 ; pgquested data has been supplied. 
70 ore 3 ASTPRM(AP) = 32 bit ast parameter 
B35 773 ; NULARG(AP) = Reserved argument - address of a buffer descriptor 
2 , oe : for wild device context. 
4 o7¢ : R4 = Current process PCB address 
7 re > IMPLICIT INPUTS: 
; 740 : none 
70 «781; 
f § 3; OUTPUTS: 
f f 4 : none 
, 6 > IMPLICIT OUTPUTS: 
, f 8 : none 
7 f 3 t ROUTINE VALUE: 
o 482 
10 488 
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RO = SS$_ACCVIO = Device name string descriptor, device 
name string, or ITMLST cannot be read by the 
fs ing access mode. Item buffer or return 

ength word cannot be written by the calling 
access mode. 


RO = SSS_IVCHAN = Invalid channel number specified 

RO = SS$_IVDEVNAM = Device name string contains invalid 
chorec ters. or no device name string was 
specified and no channel number was specified. 


RO = SS$_IVLOGNAM - Ze or greater than maximum Length 
device name s.. ng specified. 


vou-600 sce ¥b 


RO = SSS_NONLOCAL - Device exists on a remote system 


RO = SSS_NOSUCHDEV - Specified device does not exist on 
fost system 


RO = SS$_BADPARAM = An invalid item identifier was specified 


RO = SS$_EXASTLM = An AST was requested and the AST quota 
was exceeded. 


RO low bit set indicates successful completion. 
RO = SS$_NORMAL - Normal completion 
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SIDE EFFECTS: 
none 


OOOOOCOOOOOSCCOCOOCOOOCOCOOOOOOOOOOOOOOOO <- 


Equated Symbols: 
Argument List Offsets 


00000004 EFN = 4 : Event flag number argument 
00000008 CHAN = 8 ; Channel assigned to device or 0 
00 DEVNAM = 12 ; Address of device name string descriptor 
1 ITMLST = 1 ; Address of item identifiers 
1 10SB = 20 :; 1/0 status block address 
18 ASTADR = 24 ; AST routine address 
; if ASTPRM = § 3; AST parameter 
00002 NULARG = 3; Reserved argument - wild context buf dsc 
0000 -PSECT YSEXEPAGED 
OFFC ENTRY EXESGETDVI,*M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
0357" 31 BRW EXE_GETDVI 
0000: -PSECT YFSSSYSGETDVI 


DOONAN WAN OS OD NAN ES WIN § 9 OD NAME WIN SO OD NAN EWN 9 9 OD NAME WN 9 0 ODO 


D4 AD 


5E 


og 
on 


~“NOoOP,r > 


m—om 


000000 f 
ae 


50 9608 AC 


5B «10 AC 


0127 8F 


01 9 


51 BB 


QALMOoow 


VIMWOO WOWOOPr 


SHOW OOO WOOD Irinisomoichcheemee. 


NUTVIOD OWI 2D WWW Con NOM PUUIWWOOMmMm 


-O-oN —OomM—O 


WOOnrnrorwoveog 


UE WO OONOUSwn— 


B99 
899 


59 = 02 
4 
5 
A 


WAWA. AAA AAA AAAI 


MMMM SO OVIOOOOOOOON 


PUN 9 ODNAUES OV O ONO UNE 


w 


©Owo 


Oo 


-ENABL LSB 
EXE_GETOVI: 
MOVAL SCRATCH_SIZE(SP),SP 
CLRL = KRPCFP) 
PUSHL #SS$_NORMAL 
CLRQ.  =(SPY 
3; The above stack lo 
MOVZBL EFN(AP),R3 
JSB8 G*SCHSCLREF 
BLBC RO,DVI_ERROR 
MOVL I §B(AP) RI 
BEQL $ 
IFNOWRT #8,(R1),DVI_ACCVIO 
CLRQ. ss (R41) 
10$: HOVL ASTADRCAP) . , SAVED_ASTADR( 


BEQ 
TSTW PCBSW eh 
BLEQ DVI_ERAST 


3; See if Channel parmeter was specified 
20$: MOVZWL CHANCAP) ,RO 

BEQL 
Ovi HSE _CHAN 
BLBS RO,40$ 
DVI_ERROR: 


DVI_ERROR_1 
DVI_ACCVIO: 
MOVL 


S“#SS$_ACCVIO,RO 
BRB VI_ERROR 
DVI_EXASTLM: 
MOVZWL ass EXASTLM,RO 


BRB 1 ERROR 
DVI _BADPARAM: 

MOVZWL #SS$_BADPARAM,RO 
DVI_ERROR 
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; Initial local storage 
oo no KRP is allocated 
umed normal success status 


; | ieee” SAVED *ASTADR and IOUNLOCK 


; Get event flag ee 
; §yeer this > 


ag 
error, ith error status 


; Get 10S8 eddrese if specifi ed 


; Branch in none spec 
; If not writable by caller then ACCVIO 
r the 10SB 


lea 
P) Seve ASTADR parameter 


ranch if none specified 
If AST Limit is exceeded 
+ then indicate error 


Fetch channel parameter if specified 
Branch not specified 

Get UCB address from channel 

Branch if no error 


Access violat’ na 


Exceeded ASTLM quota 


; Bad parameter 


Use Device Name String parameter to locate desired device 


$0$:  MOVL DEVNAM(AP) RO 
BSBW DVI USE_DEVNAM 
BLBC =—_« RO, BVI ERROR 
: 1/0 data base locked for reading 
dos: MOVL_—sLTMLST(AP).R11 
TTNORD #4, (R11) ,DVI_ACCVIO 
50$: ROVZUL 2¢ (R11), RS 


EQL DVIC bi E 
CMPW RY mK ie CODE 


BGTRU D [ 

CMPL 

BLEQ Ove BADPARAR 
MOVAQ T)+ 


Get the device name descriptor 
Get UCB using device name 
Branch if error 


Address of List of item 
Check sires long word readable 

Item ggde for next item 
pone f SOrO. take normal exit 
Val q te cee e? 

ranch 

and 1" ay not us 

Branch if bad ng oa 

R1 = R11 = Adr of Poy buf descriptor 


SYSGETDVI - System Services to Ge Devic e. seeetene 1 “5h AX/VMS Macro v04-00 Page 19 SYS 
yoneb00 SGETDVI = Get Device In orastio =}38 88: 433 3 ete SYSGETDVI.MAR;1 . (8) 04: 
EA 8 3; R11 = R11 + 
00000000'GF 16 EA JSB Go“ EXESPROBEW_DSC 3; See if sehter can roey by 
F 9 3 and write the buffer it ll Fe 
BB E9 F 91 BLBC Rony ERROR 3; Branch if no 
i BP F 316 MOVL 3 seve item buffer address 
A C Fg 91 MOVZWL V4R10 ; its size 
04 A 01 F 914 CMPL 5 item butter at least 4 bytes? 
BE 19 FC 812 BLSS ute DPARAM ; Branch if not 
FE 1§ IFNORD # TRY) -DVL_ACCVIO ; check access to rest of this item 
404 91 3 ay irst —% word of the next 
58 8B 9 404 1 MOVL (R11)+,R8 3 = Address to gh Length 
06 1 407 1 BEQL 3 RS. if return length no foquested 
499 IFNOWRT # {88> ati ACCVIO ; aoe eyre caller can waite ¢ his 
~~» Ww CDG FF 4OF 2 1 608: EXTZV # a snery/secondery f eg 
E8 AD FO AD4 D 0414 ‘ mova PRIA OCB(FP) CROJ, currint® _UCBCFP Set current UCB/VCB 
0068 30 O41A 9 BSBW bVi_Dd O_TTEM ; Process ‘aie | tem 
B6 si? 813 3 : BRB os~ 3; Get next ody 
Rete 4 gi 3; RO = error status 
O41F 998 bv1 _ERROR_1: 
D8 AD )3650~—sé#BBO pele 4 ; mOvw RO, STATUS (FP) ; Save error status 
RP ; a3 : Normal completion, saved status already set 
04 ; 33 5VI_COMPLETE: 
54 00000000'9F DO 04 934 MOVL @#CTL$GL_PCB,R4 ; Get PCB address 
DO AD E9 OQ42A 935 BLBC IOUNLOCKTFP) ,70$ ; Branch if no read lock to release 
00000000'GF 16 0426 936 JSB G*SCHSIOUNLOCK ; Unlock 1/0 data base 
0434 937 SETIPL #0 ; Allow all interrupts 
51 60 A4 D0 0437 938 70S: MOVL PCBSL_PID(R4) ,R1 ; Get process's PI 
5 D4 0438 939 CLRL R2 3; Set null priority increment 
53. 04 AC D0 043D 940 MOVL EFNCAP) ,R ; Get event flag number to set 
00000000'GF 16 0441 941 SB G*SCHSP best : Set the event fla 
51 14 AC OD 447 94 MOVL OSB(AP) Ri 3; Get address of 1058 
1 448 94 0$ ; Branch if none 
44 944 IFNOWRT #8,(R1),80$ 3; Check if writable 
61 DB AD BO 0453 945 MOVW  STATUS(FP),(R1) : Store completion status 
55 D4 AD OD 45 208 80$: MOVL SAVED_ASTADR(FP) ,R5 ; Get address of AST routine 
|} a | 45B 94 BEQL 90$ : Branch if none specified 
54 DC 045D 948 MOVPSL R4 Get PSL 
54 54 O02 16 EF O45F 949 TZV__ #PSLSV_PRVMOD ,#PSLSS _PRVAOD, Ra. RG ; Extract previous mode 
rf 3 950 SDCLAST_S (R5)7AST 4: mia P),R4™ Queue the completion AST 
50 DBAD 3C iS 321 90$: MOVZWL “STATUS(FP), : Return saved status 
57 DC AD OD 476 33 MOVL KRPCFP) ,R7 3; Retrieve address of allocated KRP 
1 47A 954 BEQL 100$ :; Immediately return if no KRP allocated 
56  O00000000'GF 9€E 45 955 MOVAB Th a KRPFL,R6 3; Else retrieve address of KRP Listhead 
04 B86 67 OE 048 95 INSQUE (R7),a4(R6) 3; and deallocate KRP to lookaside List 
04 0487 957 100$: RET ; Exit system service 
488 958 -DSABL LSB 


C 12 
SYSGETDVI = System Services to Get Device Informat 16-SEP-1984 02:14: AX/VMS Macro v04-00 P 
v04- DVI DO. ITEM = Validate and move desired met 7 §¢:33:33 YOYS SRCISYSCEYDVI MARS 1 oo 
r -SBTTL DVI_DO_ITEM = Validate and move desired item 
: p++ 
4 4 ; FUNCTIONAL DESCRIPTION: 
4 eg : Routine to validate item identifier and return the desired 
r rt ; information to the caller's buffer. 
4 969 : CALLING SEQUENCE: 
4 ; JSB/BSB 
4 37 : INPUTS: 
4 74 ; 
4 975 ; R7 = Address of buffer to return item - already probed 
rt 3f8 3 R8 = Address of buffer to return Length - already probed 
4 977 ; 0 if not returning length 
488 978; R9 = Item code 
ott 44 3 R10 = Size of buffer for item 
Oc8 $81 $ IMPLICIT INPUTS: 
Oc8 388 : CURRENT_UCP(FP) = Address of the UCB 
048 984 ; CURRENT VCB(FP) = Address of the VCB 
0488 985 ; SCRATCHTFP) - 4 bytes of scratch storage 
ott} a88 : KRP(FP) - Address of allocated KRP, if any 
O48 988 : OUTPUTS: 
04 989 ; 
04 990 ; none 
04 991 ; 
Beye 336 : IMPLICIT OUTPUTS: 
Oc8 441 : KRPCFP) - Address of KRP if one is allocated 
488 996 : ROUTINE VALUE: 
4 997 ; 
tt 998 ; none 
4 : 999 ; 
04 1399 ; SIDE EFFECTS: 
4 1001 ; 
4 1 § 5 none 
4 1 i= 
4 1004 
488 1005 DVI_DO_ITEM: 
56 £8 AD 4 1 1 MOVL CURRENT_UCB(FP) ,R6 ; Get current UCB address 
51 59 _ FF 8F 48C 1 ASHL = #1, R9,R1 * ; Item index 
50 FB79 CF41 OD 1 1 8 MOVL W*DVI_{TEM_TABLELR1),RO 3; Fetch associated item value 
0 1 497 1 BGEQ 20 ; Branch if not a special item 
6 1 499 1010 JMP (RO) ; Handle special items 
09 50 = 3 498 1011 20$: BBC red V_DEVTYPE RO 40$ ; Branch if no specific device type 
01° 40 aS | 49F 1 1 CMPB CBSB_DEVCLASS(R6S ,ADCS$_DISK ; Disk only item, is it a disk? 
1 4A3 101 BEQL 0$ : Branch if not, null item 
00 31 4A5 1014 BRW EXESDOVI_NULL_ITEM 
at ek ee EF Q4A8 1015 408: EXTZV #DVI_V_STRUCT,#DVI_S_STRUCT,RO,R1 ; Get structure code 
4AD 1016 CASE R1,<= 
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SYSGETDVI - System Services to Get Device Informat 16-SEP-1984 02:14: AX/VMS Macro Vv04-00 Pa a1 
vou 600 Dvi bo TEN = Validate and move desired -S pa} 984 84:83:33 SYS.SRCISYSGETDVI .MAR; 1 pe (9) 
4AD 1017 DVI_UCB,- ; ucB 
4AD 101 DVI_DDB,- ; 008 
4AD 101 DVI_VCB_RVT_AQB,- ; vcB 
4AD 1 DVI_VCB_RVT_AGB,- 3; RVT 
4AD 1001 DVI-VCB-RVT_AQB, - ; AQB 
4AD 1 § DVI_ORB - ; ORB 
tab 1054 . 
480 5 ; Fall through for VCB, RVT, or AQB 
48D 1 5 6VI_VCB_RVT_AQB: 
55 ECA 9 46D 1 8 move CURRENT_VCB(FP) RS ; Get VCB address if any 
0 4Ci 1 BNEQ 45$ :; Branch if none 
006D 1 ht : ? BRW EXESDVI_NULL_ITEM 
4C6 1 § 45$: ASSUME DVI_C_RVT EQ DVI_C_VCB+1 
4C6 1 ASSUME DVI_C AQB EQ DVI_C_VvCB+2 
51 3 3 4C6 1034 SUBL #0vVT_C_RVT,R1 3; -1 = VCB, 0 = RVT, 1 = AQB 
9 19 04C9 1035 BLSS  DVI_STRUCT + Branch if VCB 
0 14 rte : § BGTR DV1_AQB ; Branch if AQB 
geep 19 8 : Get Relative Volume Table Address if any 
025¢ 30 O04CD 1040 ° BSBW = DVI_GET_RVT : Get relative volume table adr 
06 1 be08 1041 BEQL D VT ; Branch if not a volume set 
54 0B a rt } +g pov eat. RVTSE BVOLSCRS) .R6 ; Number of volumes in volume set 
tbs 1044 DVI_NO_RVT: . 
52 01 DO 0408 1045 MOVL #1,R2 ; This is volume 1 of single volume set 
54 01 00 ree ! rf ont at MOVL #1,R4 ; This is a single volume set 
51 50 OA OO EF st 1048 ~"""EXTZV.- #DVI_V_OFFSET,#DVI_S_OFFSET,RO,R1 ; Offset is RVT item 
4E3 1 29 : ft = volume number for this volume, 1 if not a volume set 
4E3 1051 ; R3 = RVT address or 0 if not a volume set 
rt; ! 26 ; R4 = volume count or 1 if not a volume set 
4E3 1054 ° CASE R1,< - 
4E3 1055 RVT_VOLCNT, - ; VOLCNT - Number of volumes in the vol set 
4ES 1 2$ RVT_ROOTDEVNAM, - 3; ROOTDEVNAM = Device name for root vol ins 
4E3 105 RVT_NEXTDEVNAM = ; NEXTDEVNAM = Next device name in vol set 
oe HE : 
rth \ $9 ; Get ACP queue header block address - AQB 
4ED 1 é bv1_AQB: 
55 10 AS 08 4ED 1 MOVL VCB$L_AQB(R5) .R5 ; Get AQB address 
mae Fi 1064 BLSS DVI_STRUCT ; Branch if Syston space address 
3€ O11 . | re sat one EXESOVI_NULL_ITEM ; No AQB, no item data to return 
55 1C A dO F 1 4, - “MOVL UCBSL_ORB(R6) ,R5 ; Get ORB address 
0 11 . ! 6 oo BRB DVI_STRUCT 
55 284A 00 FB 1 ~""MOVL  UCBSL_DDB(R6),R5 : Get DDB address 
0 1 As ! 4 ov! we. DVI_STRUCT 
55 56 00 8} 1 ig MOVE R6,R5 ; Get UCB address 
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SYSGETDVI = System Services to Get Device Informat 16-SEP-1984 02:14: AX/VMS Macro v04-00 Pa 
voe 600 DVI-D ITEM = Validate and move desired mist 7 86:39:33 SYS.SRCISYSGETDVI PAR; 1 a é ) 
74; 
f : R5 = Address of structure containing desired field 
5§ bvI_STRUCT: 
of EXTZV #DVI_V_OFFSET,#DVI_S_OFFSET,RO,R1 ; Stucture offset 
7 abot ‘ ; Source address of item to move 
6 EXTZV #DVI_V_DATATYPE,ADVI_S_DATATYPE ,R Rl ; Data type 
; EXESOVI_VALUE, = ; VALUE = move specified bytcnt 
EXESDVI_CSTRING, - ; CSTRING = move the ascic string 
: . DVI_BOOCEAN - ; BOOLEAN = test the bit 
§ . BRB EXESDVI_NULL_ITEM ; Out of range DTYPE 
8 3 Boolean data type 
0 6v1_BOOLEAN: 
91 EXTZV #DVI_V_POSIT,#DVI_S_POSIT,RO,R1 ; Bit position 
3 EXTZV R1,#T,(R5),SCRATCA(FP) ; Get the bit and save it 
9 MOVAL  SCRATCHC(FPS RS : Point to the saved bit 
Be , BRB EXESDVI_VALUE 
36 ; Counted string data type 


8 EXESDVI_CSTRING:: 
MOVZBL (R5)+,R4 ; Get size of string, advance adr 
BRB EXESDVI_MOVE_ITEM 


Null item to return to user 


EXESDVI_NULL_ITEM: : 
CLRL RO 3; Set size field to 0 
EXESDVI_VALUE:: 

EXTZV #DVI_V_BYTCNT,#DVI_S_BYTCNT,RO,R4 ; Size of item to move 


R&4 = size of item to move in bytes 

RS = source address to move from 

R7 = Destination address - on reeds probed 
= Address to return length or 


- reed, robed 


R8 
R10 = Size of return buffer for item, zero f this buffer 


XESDVI_MOVE_ITEM: : 
CMPL 


Pies Oe Se Se Se Se te 


COOOOCOOOOCOOSCOOOCOOOSSOOOOOOOOOCOOOOOCOOOOOOOCOOOOOOOOOOoOO OA 


SH ea aah ah abated eth ah ad ahaa ahah ad ah a ah ah ah ah a a ad a a aa ah ah aed 


BREE EAA AANA AAA AAA ARON 2 SS OOOO 


ak a tt sd a bs bs a a ts a bs ts a tn a ts tb tn a tt te 


RNIN 3 = HOODOO O00 0000005 


WN =O CONOAUEWI OO ONAUFS WN OO 


RNOPKLW NPP PPP PPP PF VMAS MM Mmmm orn 9990 @ 2 SO OL L LEE 


R10,R4 ; If user buffer is too small 
BGEQ 10 
MOVL R10,R4 3; Move as much as will fit 
10$ TSTL R ; Return Length requested? 
BEQL ; Branch if not 
MOVW Bhs f ; Set size of data returned 
20$ paxes R4,(R5),#0,R10,(R7) ; Store item zero filled 


ae 3 A Kony Services to Get Device A 197360 - 138% 96:19:93 AX/VMS Mac 


ro v04-00 p 
al Items EP- SYS.SRCISYSGETDV aee 3) 


1.MAR;1 


i} 5 : -SBTTL Special Items 
1} : ; CONCEALED = return boolean indicating whether device is concealed 
11 5 SPC_CONCEALED: 
£0 AD D4 11 CLAL SCRATCH(FP) ; Will hold bit to indicate concealed 
D8 AD 06 i : 11 CMPW #$$$_CONCEALED , STATUS (FP) ; Is it actually concealed? 
3 11 BNEQ 1 ; NEQ means answer is false 
EO AD OD 8B 11 INCL SCRATCH(FP) ; Set answer to true 
> a. 8 ‘ 1134 15$ MOVL #i,R ; Set Length of data to move 
55° EO A DF 1135 MOVAL SCRATCH(FP) RS : Point to data 
ds 1 3 1136 BRB EXESDVI_mMOvVE_ITEM 
207 1} 8 : VOLNUMBER = return relative volume number 
367 1140 SPC_VOLNUMBER: 
55 EC AD 0 67 1141 MOVL CURRENT_VCB(FP) ,R5 ; If not mounted, 
C6 13 0568 1148 BEQL  EXESDVI NULL ITEM ; Then return zero 
54 OE A 5 299 114 MOVZWL VCBSW_RON(RS),R4 ; Fetch RVN field 
co. 5 1144 BNEQ EXESDVI_VALUE_IN_R4 ; Non-zero if in a vol set 
4 06 2 1332 INCL 4 3 It should really be vol 1 
He N47 t teeee Fall through to EXESDVI_VALUE_IN_R4 
Pu 1149 ; RVT items - VOLCNT, ROOTDEVNAM, NXTDEVNAM 
378 1181 : R4 = Number of volumes in volume set, 1 if not a volume set 
3 1138 RVT_VOLCNT: 
3 1135 + R4 = long word value to return to caller 
575 11 5 EXESDVI_VALUE_IN_R4:: 
55 €0 AD 43 575 11 8 MOVAL” SCRATCH(FP),RS ; Address to store VOLCNT 
65 54 OD 579 11 "] R4,(R5) 3; Save the volume count 
54 04 pd0 O57C 1160 MOVL #4 RG 3 Number of bytes to return 
B91 a7F 1161 BRB EXESDVI_MOVE_ITEM 
: ' 1168 : PID - Convert internal PID in UCB to extended PID for return 
581 1165 SPC_PID: 
50 C AB OO : 1 1196 MOVL UCBSL_PID(R6) ,RO 3; Internal PID into RO 
000000 ff 1 5 1167 CVTPID: JSB EXESs PID_TO_EPID 3; Convert to extended 
54 9 p é 11 8 PUT4: MOVL 0,R ; Put value in register 4 
é 3 1 BRB EXESDVI_VALUE_IN_R4 : Join the common code 
23 a : ACPPID - Convert internal PID in AQB to extended PID for return 
3 8 SPC_ACPPID: 
50 EC ? D 90 1174 MOVL CURRENT_VCB(FP) ,RO ; RO => volume control block 
F 1 94 1175 BEQL : Return null item if zero 
50 10A0 OD 96 1176 MOVL VCB$L_AQB(RO) ,RO : w RO => ACP Queue Block 
EF 1 9A 117 BEQL ; Return null item if zero 
50 OC a ) 9 1128 MOVL AQBS$L_ACPPID(RO) ,RO ; Now RO has the internal pid 
E 1 i ay BRB CVTPIDB ; Convert the pid and return 
A 1189 : R2 = Volume number of this volume, 1 if not a volume set 
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SYS.SRCISYSGETDVI .MAR; 1 


; If not a yotune set 
; Return th 
; Otherwise return devnam for first vol 


s volume's device name 


Loop 0 or more tine 


11 iF ; R3 = RVT address, 0 if not a volume set 

: R4 = Volume count, 1 if not a vclume set 
hvT_ROOTDEVNAM: 

TSTL R3 

BEQL  SPC_DEVNAM 

CLRL R2 
RVT_NEXTDEVNAM: 

R 208 

10$: MOVL RVTSL _UCBLST=4(R3)£R21,Rb : 


BLSS CBE VNAM 
20$: AOBLEQ Re R2, 108 
DVI_LNULL_ITEM_1: 


bt ee SS a 


§PC_ALLDEVNAM: 
MOVL R 
BRB spt2 
SPC_FULLDEVNAM: 
CLRL RG 
BRB SPC2 
SPC_TT_PHYDEVNAM: 
BBC 


¢ 

5 

: 

4 

K 

gi ; Device Name String - DEVNAM 
9 

g 

4 

5 

$ 

8 

8 

BBS #DEVSV_RTT,UCBSL 
4 


 Pevice lock name 


UCK_FOR: S*#DEVSV_CLU.U 
SPC_FULLDEVNAM 


ee a ee a ts ss 0 a 2 sb a dD tb 2b bb bs bd os bs a a tt tt tt 


BRw EXESDVI_NULL_ITEM 


#DEVSV_TRM,UCBSL_D 
BBS #DEVS$V_NET,UCBSL_D 


~mmm 
zo 


MOVL UCBSL_TL_PHYUCB(R6 
BEQL DVI_NOLL“ITEM_1 
SPC_DEVNAM: 
MNEGL #1,R4 
SPC2: MOVL R6,RS5 
MOVL  R16,R0 
MOVL R77, RI 
JSB8 G6*fOCSCVT_DEVNAM 
MOVL  =R1,R4 


R7_R 
BRW EXESDV1_MOVE_ITEM 


BRB 
SPC_DEVLOCKNAM: 

MOVL 16 
MOVL CURRENT OcBCe P),R 

é MOVL  § CURRENT“VCB(FP).R 
BEQL R™ 

é 

6 MOVL  KRP(FP),R1 
BNEG 208 

8 MOVAB G*CTLSGL_KRPFL.R1 


i. uCcB for this RVN 
RvN is base 1, table 4 base 0 


3 oon f UCB present 
; Try next RVN 


; flag IOCSCVT_DEVNAM to return the 
; allocation class + device name 


: {lag IOCSCVT_DEVNAM to return the 
; fully 


qualified device name 


DVI_NU Liree M_1 ; Non-terminal? 
DvI- NULL “I TEM M-1 Network dev? 
»SPC_DEVRAM ; Lio remote term's 
ch physical icé tren virtual 


hg 


; None, go return null string 


; Force nodename to be left off 

; UCB Address 

; Size of return buffer 

; Address of return buffer, - pre proted 
; Get device name dcu 

; Size of string returned 

; Address of string 

; Move to self, zero filling. 


CBSL vancarg * Ty SPC_ALLDEVNAM ; Cluster-visible? 


t cluster-visible — 


; OUTLEN is 16 a es 
> Setup for DVI_GET_RVT routine 


ans not mount 


LCK_F QL me ted 
BBS S SDEVSV _FOR,UCBSL_ DEVCHARIR ) mtcK. FOR ; Foreign? 


t Petr jeve o\ located KRP 
Continue RP has been allocated 
; Retrieve address of KRP queue lListhead 


H 12 
voe-600 Special Items) > et Device Informat pre ei9be 08:53:82 Levevencavscerpviomn:1 "8% (45, 


51 04 } of REMQUE OG LRT) RI 3; Retrieve KRP from lookaside list 
4 C V 0$ ; Continue if got one 
BUG_ CHECK KRPEMPTY,FATAL ; Otherwise bugcheck 
DC AD 10s: MOVL R1,KRPCFP) ; Save address of KRP in local storage 
2c 20$: TSTL $L_PID(R6) i; Is the device allocated? 
BEQL 3; EQL means it is not 
cere #OVI_K_PRIVATE,(R1) ; Setup the prefix byte in KRP 
ifs: MOVB #DVI_K_SHAREABLE, (R1) ; Setup the prefix byte in KRP 


BSBW _GET_RVT ; Get relative volume table address 
BNEQ 3; NEQ means it is a volume set 


55 00000080 ADDL ZY 40ST VOL CEHAR RS ; Add in offset to ‘name' 


oo Oo 
=a «at 
S 
Morr oo—OW0o "OO0COru'! 
Pe NOE MOONS IO — 
AOPOOOCOOCAO OOO 
WPS BS ANNI NIPPON 


DAFLOM OOAAAOOWOS OU MOOWOMD OSIM OCD 


123 
124 
124 
152 
124 
152 
Ht 
1528 
iS HE 
11 1 BRB 
55 53 4 1 50$: ADDL3 tt tbe VLSLCKNAM,R3,R5 ; Add in offset to ‘name’ 
01 Al D 1 e 60$: MOVQ (R5)+,T(R1) ; Move the 12 bytes to the buffer 
09 Al D0 1255 ve —- (R5) , 91) 
0D D4 1 36 CLRL = 13¢R1) : Zero bytes 14-16 
55 E 125 MOVAL (R1),R5 3; Point to the whole buffer 
FE 1 06 38 BRW EXESOVI_MOVE_ITEM 
O65 i $9 3; Volume set member 
bee 1 6¢ SPC_VOLSETMEM: 
54 DO 0656 126 MOVL RG ; Boolean answer is one byte long 
EO AD D4 0659 1264 CLRL = SCRATCH(FP) : Assume not a volume set 
56 €B AD DO 065C 1265 MOVL § CURRENT_UCB(FP) .R6 ; Setup for DVI_GET_RVT 
55 EC AD o? 0660 1 96 MOVL URRENT_VCB(FP) ,R5 
0 13 0664 126 BEQL $ ; EQL means not mounted 
00c 7 666 1268 BSBW BYL-GET_RVT ; Get relative volume table address 
0 1 669 1 4 BEQL 0$ ; EQL means not a volume set 
EO AD D6 0668 1270 INCL SCRATCH(FP) 3; Set volume set to True 
55 £0 AD 9E 08 1271 20$: MOVAB SCRATCH(FP),RS 3; scratch(fp) is were the answer is 
FECS «31 67 fe BRW EXESDVI_MOVE_ITEM 
675 1274 DVI_NULL_ITEM_2: 
FEBB W XESDVI_NULL_ 
31 of ! o Br EXESOVI_NULL_ITEM 
of : ; Volume name - strip trailing blanks 
678 1 ig SPC_VOLNAM: 
55 EC AD 00 67 1280 MOVL CURRENT_VCB(FP) RS ; VCB address 
F711 67C 1281 BEQL DVI_NULC_IT 3; No data if not mounted 
:? 14 #C ore 1 ¢ ADDL #YCBS] _VOLNARE .R5 ; Address of volname string 
4 0B OD 681 1 MOVL #1 ; Base 0 count of characters in name 
20 6544 91 0684 1284 108 CMPB ss (RSSER4I,M*A/ / > Strip off trailing blanks 
3 le 688 1285 BNEQ 208 : Branch if not a blank 
F7 54—CédéF 68A 1 § SOBGEQ R4,10$ 3; Try next character 
4 6 68D 1 20$: INCL 3 Actual byte count 
FEA8 1 O68F 1288 BRW EXESDVI_MOVE_ITEM ; Go move the volume name 
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S 
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; LOGVOLNAM = Logical volume name 
SPC_LOGVOLNAM: 


51 DCA 9 poy L Pere. R1 $ pace rove 9} Located = leona 
; Continue as been alloca 
51 0900030" st E 3 MOVAB cer so. KRPFL,R1 3; Retrieve address of KRP queve Listhead 
1 4 8} : cA RENQUE wee ),RT 3 Retrieve tf KRP Ay B. lookaside List 
3; Contin 
A BUG “CHECK® KRPEMPTY,FATAL ; ede AA aah, 
DC AD 51 4 eh i MOVL R1,KRPCFP) ; Save address of KRP in local storage 
61 ) AD $ CLRL ; Set up a null LOGVOLNAM 
55 EC AD 00 A MOVL RRENT_VCB(FP) ,R5S 3; If no vol shakeot block 
70 | 68 BEQL 3; then no logical volume name 
0074 : 68 BSBW OY} GET _RVT ; Return RVT in R3 or zero 
0 1 68 BEQL ; Branch if not a volume set 
56 444 0 68. MOVL RVTSL_UCBLST(R3) ,R6 3; Get Root UCB address 
g 1 68 BEQL 80$ ; Branch if no UCB, really an error 
54 _00000000'9F 4 10$: MOVL 49 ea PCB,R4 3; Get the PCB address for this process 
54 80 (4D MOVL  PCBSL_JIB(R4S.R4 : Get the JIB address 
64 DE MOVAL JIBSL “tee talS RG S Get the jeb-uide mount List heed 


ASSUME VCBS$V_GROUP EQ VCBSV_SYSTEM-1 
EXTZV #vVCBSO_GROUP,#2,VCBSE_ STATUS(R5), R1; 02 Process 
zs 1s Group. ‘2s Sys 


OA 13 BEQL 208 : : Branch if not "auenben /SYSTEM or /GROUP 
54 met 8 Bs oar Bi MOUNTLST,R4 : goers og ted Mounted Vol List 
52 4 20S: MOVL R4.R2 ; jg list head scares 


MTLSL_MTLFL EQ 0 


_~J 
DDD DDD DDD AA AA AAO 


OOK LOMD DPF LDV VIWIWVO LMM F VL FHS MYWII TN BAOVNOMP Ouw™n 


52 6 dO 30$: MOVL MILSL_MTLFL(R2) ,R2 ; Get next entry on List 
54.COS D1 CMPL R2,R4~ ; End of t? 
; 13 BEQL 3 Branch if yes, ee MIL, really error 
Oc a2 56 «1 CMPL 6, MTLS$L_UCB(R2) : MTL entry for this UCB? 
F 1 F BNEQ 30$ ; Try next if not 
5 D F TSTL R : xe —_ set? 
0 1 F BEQL 40$ branch h if fot, this MTL is it 
E9 0B A2 00 €E1 : BBC #ATLSV_VOLSET ,MTLSB_ STATUS(R2),30$ ; Yes, get the right MTL entry 
: : R2 = Mounted Volume List (MTL) entry address 
F e 
54 00000000'°9F 00 F 40$: MOVL @*CTLSGL_PCB,R4 ; PCB address for this process 
dD PUSHL R4 : Save for unlock ca 
OO0O00000'EF 16 JSB LNMSLOCKR ; Lock Logical name Mutex for reading 
; *eeee Note that R2 is preserved across the above call 
52. 10 A2 8 " MOVL MTLSL_LOGNAME (R2) ,R2 ; Get logical name table entry adr 
0 BEQL 50 ; Branch if none present 
mw Ae 9 MOVZBL LNMBST_NAME(R2) ,R1 Size of name 
INC nclude count byte 


1 8 


54 8EDO 


NCL : 
MOVCS R1, LNMBST_NAME(R2) ,@KRP(FP 
: Save logical name in K 
RG ; Get parameters for A A call 


DC BD 
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QOOOOOOO'EF 1 71F 1347 JSB LNMSUNLOCK 3; Release Logical Name Table Mutex 
oc Ap RB f 3 1 ‘3 80S: MOVL KRP(FP),RS ; Address of counted string to return 
FEO 134 BRW EXESDVI_CSTRING ; Go move counted string 
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al Items SYS.SRCISYS SET DVI.MAR;1 
¢ 1 5 

r : 1 : Functional Description: 

f : ! : ; Get Relative Volume Table address if any 

f ¢ g ; Calling Sequence: 

f c ; BSBW = DVI_GET_RVT 

72C 1 : Inputs: 

72eC «(1 3 ” 

7ec (1 3 RS = VCB address 

72ec (1 3 R6 = UCB address 

72C «1364 ; 

72C 1365 ; Outputs: 

7ec 1 $6 3 

72C «1367 ; If this UCB is part of a volume set: 

72eC 1 o8 ; Condition code : s CLEAR 

la. oo 8 : : = RVN for this volume 

72C 1370; = RVT address 

4 : ! 4 5 Other registers are preserved 

72C 1 ig : If this UCB is NOT part of a volume set: 

4 : ! a 3 gqnet i ton code Z is SET 

4 : : ug : Other registers are preserved 

72C 1 8 bv1 _GET_RVT: 

53 D 72C «137 “CLRL R3 a volume 
OA 38 AB 1 0 07 1380 BBS S*#DEVS$V_FOR ucese DEVCHAR (RS) °3 08°: if FOREIGN. “eat a volume set 
52 OE A 7 1381 MOVZWL VCBSW_ RVACRSSR ; Relative volume number 
06 ~=«1 7 1 § BEQL : Branch if not a volume 
53 20 AS ? a4 1 MOVL VCBSL_RVT(RS) ,R3 ; Fetch RVT address (stilt. could be 0) 
0 73D 1384 208: RSB 3; Return Z bit set if R3 = 0 
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18 
rf } ; Volume free blocks 
73— 1 4 épc _FREEBLOCKS: 
55 €0 ap 4 7? 1 MOVAL SCRATCH(FP),RS H gteok a pointer to the answer 
6 Dd 742 =«1 CLRL (R5) 3; Assume zero blocks 
56 E8 AD 3 744 «4 MOVL CURRENT_UCB(FP) Get the ucb address 
01 40 A6 1 0748 139 CMPB press. DEVECASS<RGS . #0cs biSk 3 be. it a disk? 
260 Ci 74C «1394 BNEQ 3; NEQ means not a ersk. return 0 blocks 
56 EC AD OD 74E 1395 MOVL SHERENT VCB(FP) ,R6 ; Get the vcb for the disk 
20.— 1 7 1 38 BEQL $ ; QL means not mounted 
5 40A D 4 139 MOVL VCBSL_FREE(R6) , (RS) 3; Assume that we will use free blocks from V 
4 1006 D 8 1 38 MOVL BSL—AQB(R6) ,R4 ; Get pointer to 
we 75¢ «4139 BEQL 3 FOL means ne AQB, us vest. free (strange 
02 1504 91 O75E 1400 CMPB © AQB$B_ACPTYPE(R4) , #AQBSK_F We Is it an gos-2 A cP? ~ 
10 1 762 1401 BNEQ 3 Q means not ODS- ee vcb$l_ free 
54 70 AB OD 764 14 § MOVL ESL VOLLEID (RG) AG 3 Get t e lock id for the volume lock 
A 1 768 14 BEQL $ ; EQL no lock Fxg wee vcb$l_free (shou 
7E 4 7D O76A 1404 MOVQ R4,-(SP) 3; Push the lock id and return valve address 
0000077A'EF 2 FB O76D 1405 CALLS #2,EXESDVI_LFREEBLOCKS =; Call the routine to check the 
774 1208 ; If error, then vcb$l_free will be used 
54 04 0 774 128 20$: MOVL #4,R4 ; Answer is 4 bytes long 
FDCO «31 «0777: «1408 BRW EXESDVI_MOVE_ITEM : Go move the item 
Bk at 
1444 1411 ; ExESOV) _FREEBLOCKS ’ 
77A 1e1¢ : Procedure to fetch the correct free block count from the XQP's vol ume 
1444 1415 ; lock block. This procedure is also called by SHOW DEVICE (SHODEVUTL. B32) DCL 
77A 1414 ; command to fetch the correct free blocks for SHOW DEVICE displays. 
OP7A 1218 : Input: 
3: Inpu 
BreA 1447 3 . ‘ Maat - Lockid to fetch value block 
3; Outpu 
77A 1219 3 (AP) - Address to store freeblocks field 
77A 1420 ; Routine value 
77A 1421 ; RU = ‘status from getlki call 
OP7A 1498 * 
at, 1? 23 3; Offsets from frame pointer for scratch storage 
FFFFFFEOQ O77A 14 § VALBLK = -32 3; Address to return value block 
FFFFFFE&4 O77A 14 FREEBL = = VALBLK + 4 ; Free perce & are in second longword of value block 
FFFFFFFO at, 1 : ITMLST = -16 ; Build 4 longword item List 
000 77A 1450 ENTRY ExESQvI. Ease ores. 0 
5 re. 77C «(11431 Get scratch area 
FO AD 02030010 8F OD 77F 14 MOVL #<<(KI$_ VALBLK@16>!16> ITMLSTCFPS Item code and buffer Length 
F4 AD EO AD QE 0787 14 MOVAB VALBLK (FP) ,ITMLST+4 (FPS 3 ig ress wot value block 
FB AD 7C O78C 1434 CLRQ ITMLST+8(FP) n length end, of List 
78F 1435 SGETLKIW FN=S“#EXESC_SYSEFN, LKIDADR=A (AP) ITALST® ITMLST CF 
05 50 €9 O7A4 14 $ BLBC ror? Then exit 
08 BC «OES AD BO 7A? 14 MOVL FREEBL(FP),@8(AP) sists it back’ 
4 PAC 1? 3 10$: RET 
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UCB address 
Destination address - already probed 


Address to return length or 
Size of return buffer for item, zero f 


PC_MEDIA_NAME: 


cars BSB _DEVCLASS(R6), #DC$_DISK 

CMPB YFBSB_DEVCLASS(R6) , #DCS$_TAPE 

BEQL 

BRw EXESOVI_NULL_ITEM 

TSTL BSL_MEDIA_ID(R6) 

BEQL 

MOVL RP(FP), R1 

BNEQ 

MOVAB G*CTLSGL_KRPFL, R1 

RERQUE gain), Ri 

BUG_CHECK KRPEMPTY, FATAL 

move R1, KRPCFP) 

CLRL 4 

EXTZV #UCBSV_MEDIA_ID_NO, - 
#UCBSS"MEDIA_ID-NO, - 
UCBSL_AEDIA_TD(RG), - 

BEQL 40$ 

858B DVI_DECODE_MEDIA_CHAR 

EXTZV #UCBSV_MEDIA_ID_N1, - 
#UCBSS-MEDIA_ID-N1, - 
UCBSL_AEDIA_TO(R6), ~ 

BEQL 508 

8568 DVI_DECODE_MEDIA_CHAR 

EXTZV #UCBSV_MEDIA_ID_N2, - 
#UCBSS-MEDIA_ID-Ne, - 
uy BSL_MEDIA_ID(R6), - 

BEQL 60$ 

BSBB DVI_DECODE_MEDIA_CHAR 

EXTZV #UCBSV_MEDIA_ID_NN, - 
#UCBSS"“MEDIA_ID-NN, - 
UCBSL_MEDIA_TD(R6), - 

CMPL RO, #100 

BLssu 708 

CLRL a 

SUBB2 #100, RO 

BLSS 66$ 

INCL R 

BRB 6 

ADDB2 #100, RO 


- alread 


AX/VMS Macr - 
SYS.SRCIJSYSGETDVI.MAR; 1 


o V04-00 Page 2) 


robed 


this buffer 


; If disk class OK 


If tape class OK 


If not disk or tape return null 
Test to make sure field is not 0 
If 0 then return null item 
Get address of KRP to build 

the string (may be >4 chars) 
Get Q head 
Get next KRP 
Branch if not empty 


; Save address of KRP address 
:; Init string Length 


Extract character number 
If zero null character 
place ASCII char in string 


Extract character number 
If zero null character 
place ASCII char in string 


Extract character number 
If zero null character 
place ASCII char in string 


value of two decimal 
digits 


If < 100 skip to tens 
Clear hundreds counter 
sun tract 100 from value 
Branch if go negative 
Incre tens counter 


Loop 
Get back to positive # 


CCH NY 
OO Aaa 


SYSGETOVI 
04-600 
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1A = 550 

50 00000040 8F 
81 50 

so 2 
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51 €0 AD 
50 008 C6 O05 18 
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50 008 (6 05 16 
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ADDB2 = #*x30 
MOVB Re Oar 
INCL 

$: CLRL Re 

$: SUBB2 #10, RO 
BLSS 80S 
INCL 
BRB 

80$ ADDB2 #*x30, R2 

MOVB. R2,_(R1 


RO = character number 


Rl = address of next free byte in string 


R4 = Length of string 


VI_DECODE MEDIA er 
eet 


3; R6 = UCB address 
3; R7 = Destination address - shreed 
3; R8 = Address to return Length 
3; R10 = Size of return buffer lee” teen. zero f 
SPC_MEDIA, TYPE: 
cAPB UCBSB_DEVCLASS(R6), 
BEQL 10$ 
CMPB ycese_ DEVCLASS(R6), 
BEQL 0$ 
BRW EXESDVI_NULL_ iyen 
10$ MOVAL SCRATCHTFP 
CLRL R4 
EXTZV #UCBSV_M 
#uUCcBSS_M 
on 
BEQL 208 


BSBB DVI_DECODE _MEDIA_CHAR 


EXTZV sucesy MEDIA IDL 
UCBs AED! 


~ 
So 
fe 


UCBSS~ 
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; Convert to acsii char 
; Move into string 
; Adjust Length 


ADDL #*x40, RO 

INCL 

MOVB RO, (R1)+ 
RSB 

20$: MOVZBL #*X2E, RO 
BRB 10$ 


5) 


Clear tens counter 


: guetrecs te from value 


go negative 


; puare tens counter 
; ae to ecqt! char 


Move into strin 


; Convert neg number t to 


epee rl: character 
t into the ,dtring 


; Ad ust the length 


Set source address 


; Move the string and process 


the next item 


Only 26 chars - dhphabet 

If not 0-26 pla "in string 
Convert number to ascii char 
increment length 

Move the char into string 


Set oa 


robed 


this buffer 


; If disk class OK 
; If tape class OK 


If not disk or tape return null 
Set address to build string 
Init char count 


Extract character wanes 
If zero null chara 
place ASCII char 4 string 
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&pc _SHDW_ CAT CHUP COPYING: ; Catchup copy in progress 
SPC” SHDW_MERGE “bie. : Herge copy in progress 
ape ; Just in case 


; Just in case 


wn 
=x 
= J 
o< 
a" 
“—- o 
we 
30 
fe 
ooo 
arate 
Sete tee 


50 peter ° 75 


SHDW_MASTER WARES ; Hester nese for set 
eo 


next member 


SEBS 


; Just in case 


C 
C“SHDW"NEXT_MBR_NAME : 
ce SHDW"sparé_stfring_ }: 


Sete eee 
= 
ow 
3 


~SHDW- RSs “strin ; Just in case 


Eyes00T. -NULL_ITEM, RO 


; -SBTTL Dual path and shadow set items 
Items for shadow sets 

50 FC94 CF 9€ 

07 =17 : 
5 
5 
5 
5 
5 
5 
5 
5 
5 


1 
He 
| f 
1 
1 
1 
He 
1398 
1574 
1398 
1 58 
Be 
A2 1580 SPC_SHDW voeeit: integer. }: Just in case 
Ad 1581 SPC_SHDW"s are. “inte oper Just in case 
50 QOOO08EC'EF 9E Ae 1 § fio EXE sure “RETURN ZERO, RO’ 
a4 ! ? att through to MV_JUMP 
BA9 1585 : Since Shadow support is Latent, we will jump into the mount verification 
BA9 1 HH] 3; code in SYSLOA to process the item. This is a lot simpler than trying 
OBA9 1 3 to patch SYS at some future date. 
BES 1288 iv sun. 
00000000'GF 17 O8A9 1590 ~ UMP G*EXESMNTVER_DVI_ASSIST ; For now, this just does a JMP (RO) 
Tha 
akar 1398 | : DVIS_REMOTE_DEVICE - Device is served by a host other than the local VAX 
OBAF 1595 §Pc _REMOTE DEVICE: 
50 > tae: 4 GF 9 BAF 1596 MOVAB G*SCS$GA_LOCALSB, RO ; Get the address of the local system block 
56 06 886 1597 MOVE CURRENT OCB(FP), R6 ; Get the acerees of the UCB 
56 @8 a6 DO OBBA 1508 MOVL  UCBSL_DBB(R6). R6 ; Move down to the DDB 
50 4 A6 ODI gee 1599 CMPL DDOBSL R ; Compare DDB's Hs with the local SB 
1¢ 13 O8C2 1600 BEQL § EXESDVI_RETURN_FALSE ; EQL means that it is the Local block 
) ee & te 1808 BRB EXESDV1_-RETURN_ TRUE ; Set the flag, it is remote 
C6 1603 ; 
3 1903 3 DVIS_SHDW_MASTER - The device is really the ‘‘virtual"’ name for the shadow set 
C6 1806 SPC_SHDW_MASTER: 
36 E8 ap 4 C6 199 AOVL cuanent UCB(FP), R6 ; Get the address of the UCB 
11 3C AB OO E CA 1608 BBC #DEV$V_ASCP ; See if the mscp bit is set in the 
af 1609 UCBSL BEVCHAR2(R6) 3 second characteristics ven word 
CF 1610 EXESDUI RETURN. FALSE. + and return false if not 
00D4 (6 «iB 8CF 161 TSTW UCBSW_MSCPUNITTR6 3 Unit # with high bit get : shadow master 
1 D 1618 BGEQ EXESDVI_RETURN_FALSE ; GEQ means that high bit is not set 
o 7% D5 161 BRB EXESDVI_~RETURN_ TRUE ; Set the flag, it is the master 
BF Sts 
4 1018 : : Routines to return specific values 
D7 1618 Exespvi -RETURN, TRUE : : Boolean TRUE 
55 _€0 AD 43 D7? 161 SCRATCH CEP), RS 3; Grab pointer to scratch area 
aS. 8 DB 1620 MOVES ; Return a one 


SYSGETOVI 
voe=600 
06 
55 EO A 
65 
541 
FC4E 
4 
Fcbe 


tg 
11 
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path and shadow set items 


MmmMmMmmmmmmmn oS 


MODES SOOMm 


16 RETURN. TF 

1622 EXESDVI RETURN, FALSE:: 

16 SCRATCH(FP) ,RS 

1624 (R5) 

16 5 RETURN_TF 

1 é #1, RG 

16 BRW EXESDVI_MOVE_ITEM 
16 8 EXESDVI_RETURN_ZERO: : 

16 "Te 

1630 BRW EXESDVI_VALUE_IN_R4 


~3eb=}98e OS:4h:32 Pers Veacieys 


Boolean FALSE 
Grab pointer to scratch area 
Return a zero 


¥04-00 


SGET DVI. MAR; 1. 


Booleans are one byte long 


Integer 0 


Set 


he zero 


Pa 
9 16) 


S< 
= 
a 


76 E8 
E6 3C AG «(04 


AD 


E1 3C A6 OOS 


DC 3C AB OS 


00CO C6 
D5 
OE 


8 AD 


36 E 
C1 3C A605 


OOBC C6 


CO 12 A6 «(07 


B5 


- System Services to Get Device 
path and shadow set items 


-ALT_AOST “AVAIL 


PC_ALT_HOST_AVAIL: 
MOVL boee NT UCBCFP), 


Cee Ge Ge te 


SPC_HOST AVAIL: 
MOVL Seeee ae VEBCrh? R6 


UCBs RBEVEwin@ no? 
atte tppetkeo >. 
#coDBSV NOCONN 


; Get the D 
; If the NOCONNECTION bit is set 


PDI a IO 0 0 FF 0 0 Fe 
SOOWWDAADS - GCI VFTWDOLLL NPP Prue 
tt eb nn ts a os in i a a ss ss ss a 
PDRERA-AAAAAAAAAAAAA AAA AAA AA AAA AAO 
PD Perr Be Be Be Be BB EE I INI 
MOOD NAM EWS ONAN WIN O ODN Uy 


EXESDVI-RETURN_ TRUE 


1986 O9:48539 eee ee Meee Oe tks | a9? F3, 


Host for che primary path is available 
- Host for the secondary path is available 


Get the UCB address 
If the dual-port bit is 
clear in the cheracter istics, 
return a false 
if the MScP device bit is 
clear in the characteristics, 
return a false 
If we class driver path bit is 
set in the fherecter iesics. 
return a false (no 2P_CDDB for these) 
Get the CDDB address for the second path 


; Extra paranoia (false if not system addres 


Join the common code 


; Get the UCB addre 
; If the MSCP device bit is clear, then 


it is a local path 
and pluers return true 
8B address fer the primary path 


in the status, then it is not avail 
and return a 


; alse 
; Set the flag, it is available 


yn 


S$ 
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1663 ; 
; ! 4 ; DVIS_HOST_COUNT = Number of hosts serving the device (either 0 or 1) 
920 1666 SPC_HOST_COUNT: 
54 04 0 09 1 3 . MOVL #4, R4 ; Four is Length of integer items 
55 _€0 AD 925 1 8 MOVAB SCRATCH(FP), RS ; Get the pointer to the scratch longword 
65 01 OD 9 1 MOVL (R5) ; Assume that the device has one server 
36 EB AD DO 092C 1670 MOVL CURRENT _UCB(FP), R6 : Get the address of the uce 
02 3C AG «60046 CCE +] 1671 BBC #DEV$V_2P, - : See if the dual path bit is clear in the 
9 1676 UCBSL_BEVCHAR2 (RO), 10$ ; second characteristics longword 
5 6 9 167 INCL (R5) ; Bump the flag, it has a second path 
FCOO 2 i ore 10$: BRW EXESDVI_MOVE_ITEM ; Go move it 
93A 1676 DVI_NULL_ITEM_3: 
FBF6 = 331 93A 167 BRw EXESDVI_NULL_ITEM 
93D 1978 
93D 1679 ; 
93D 1680 ; DVIS_HOST_NAME = Node name of the host for the primary path 
9 4 et ; DVIS-ALT_ROST_NAME = Node name of the host for the secondary path 
0930 16 : §PC_ALT_HOST_NAME : 
36 E8 AD 00 8 D 1684 MOVL CURRENT_UCB(FP), R6 ; Get the UCB address 
F4 3C AB) =600G)SCOET «0941s: 1685 BBC # V.2P, = 3: If the dual-port bit is not 
946 1686 UCBSL_BEVCHAR2(R6), - : set in the characteristics, 
94 198 DVI NOLL ITE 3 _return a null string 
56 O0A0 C6 DO 0946 1688 MOVL UCBSL_2P-DDB(R6), R6 ; Get the DDB address for the second path 
08 11 0948 1689 BRB HOST_RAME ; Join the common code 
94D 1690 SPC_HOST_NAME: 
56 3} AD DO 094D 1691 MOVL CURRENT _UCB(FP), R6 ; Get the UCB address 
56 A6 D0 0381 1696 one ue UCBSL_DBB(R6), R6 ; Get the DDB address for the primary path 
56 34 A6 00 33 1694 = MOVL DDBSL_SB(R6), R6 ; Get the SB address 
54 444A 9A 0959 1695 MOVZBL SB$T_NODENAME (R6) R4 _ ; Pick up length of ASCIC string 
55 45 A 3 95D 1e78 MOVAB SBST-NODENAME+1(R6), RS ; Pick up address of ASCIC string 
FBD6§ «3 961 169 BRW EXESOVI_MOVE_ITEM 3; Go move the item 
364 1699 
964 9 0 ; DVIS_HOST_ TYPE - Type of node of the host for the primary path 
+41 4 1 ; DVIS-ALT_ROST_TYPE = Type of node of the host for the secondary path 
964 17 : SPC_ALT_HOST_TYPE: 
36 EB AD 00 0964 1704 MOVL CURRENT_UCB(FP), R6 ; Get the UCB address 
CD 3C A6 «=6006~SCCiED«s« 0968 =: 1705 BBC #DEVSV - ; If the dual-port bit is not 
96D 17 § UCBSL_BEVEHAR2(R6), - : set in the pherecter istics, 
96D 17 DVI_N oe M ; _return a null str ng 
56 OO0A0 £6 D 9 8 17 3 MOVL UCBSL_2P-DDB(R6), R6 ; Get the DDB address for the second path 
j 0 1 9 17 BRB HOST_TYPE ; Join the common code 
974 1719 SPC_HOST_ TYPE: 
56 3 AD D 974 171 AOVL CURRENT _UCB(FP), R6 ; Get the UCB address 
56 A6 =~ are 17\¢ wees swe UCBSL_DBB(R6), R6 ; Get the DDB address for the primary path 
26 i A6 0 444 1714 “= ROVL DOBSL_SB(R6), R6 ; Get the SB address 
5 A 980 1715 MOVAB SBST_AWTYPE(R6), RS ; Pick up address of padded string 
$5 04 : A 0984 1716 LOCC. wea’ '', #4, (RSS : Look for the first blank 
4 3 988 171 SUBL3 RO, #4, R ; RO contains number of blanks (or zero) 
FeAB OCS) «(098C «1718 BRw EXESov{_MOVE_ITEM : Go move the item 
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Mite Get UCB fr 
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-SBTTL Get UCB from channel or device name 
: FUNCTIONAL DESCRIPTION: 


Gtven either the channel or the device name string, return 
the primary UCB/VCB addresses and the secondary UCB/VCB addresses 


INPUTS: 
RO = CHAN if entered st DVI_USE_ CHAN 


= DEVNAM if entered at DVI_USE_DEVNAM 
Neither the Cesc iptor nor the string have been probed 


~O 00 CD CD CD CD CD CD CD CD CD CD 0D CD CD 0D CD CD. 0D CD. CD CD COD. CD CO CD CD ODD CD 


WOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO ® 


DQDOQOOCCOCOCGCOCOGCOOOOGOGOOGOOCOOOCOOOOCOCOCSoSO OA 


SGOOSOOOCOSOOOOOOOOOOOSOSOSoOSoOSO 
SSS SoSoSo>>>>> 
WW MO NUS 


eeees 8! 


oon 


; INCL IOUNLOCK (FP) Note that unlock is required 
; eeeee Note that the device name string still must be probed 

: Go 1OCSSEARCHDEV 
no's STATUS (FP) 


ice 
cha 
F 17 
i 
F 4958 : 
f ? ¢ 
t ; 
mie 
F 7 Py 
F 1729 ; 
; 730 ; 
r gi: : R4 = Current Process PCB Address 
f , 4 i : ouTPuTs: 
F 17 : : 0 = status 
F 1737 ;: STATUS(FP) = Returned success ogetus from IOCSSEARCHDEV 
F 17 3 5 = SSS_NORMAL or SS$_CONCEAL 
F 1739; Only returned when amare’ at DVI_USE_DEVNAM 
F 1740; PRIMARY_UCB(FP) = Address of the primary UCB 
F 1741; PRIMARY VCB(FP) = Address of the primary VCB 
F reg : SECONDARY_UCB(FP) = Address of the secondary UCB 
: oz 3 SECONDARY_VCB(FP) = Address of the secondary VCB 
F 24s . -ENABL LSB 
F r3 DVI_USE_CHAN: 
eee 6 16 F oe JSB G* 1LOCSVERIF YCHAN 3; Verify channel number 
6A 50 € 5 174 BEBC ; Branch if error 
61 DD 0998 1750 PUSHL  CCB$L_UCB(R1) : Get UCB out of CCB 
Q0000000'GF 16 9A 1751 JSB G*SCHSIOLOCKR 3; Lock I/0 database for read access 
DO AD 06 A 7 § INCL FouNLock (FP) ; Note that unlock is required 
* 4 ? = te R1> ; Recover UCB address 
50 0144 8F 7 738 108: ta #SS$_IVDEVNAM,RO ; Invalid device name error 
50 Pe 09 739 208: om 7228 ACCVIO.RO ; Access violation 
28 DVI_USE _BEUNAR: 
51 50 09 760 “MOVL RO,R1 : Device name strin popes tted? 
eF 1 7 BEQL ; Branch if not, 
7 TFNORD (R1),20$ ; Branch if descr ptor cannot be read 
i 4 JSB GECHSTOLOCKR 3; Lock 1/0 database for read access 
7 oe 
7 
7 
7 


a 


Search for device 

If error, roturs otetus 
Save success 

; SSS_NORMAL or nt CONCEALED 


BBC S“#DEVSV_RED,UCBSL =PEVEHAREKRN} 3 2308; Skip if net redirected 
al termina 
MOVL UCBSL_TT_LOGUCB(R1),R1  ; S ertet to associated logical tty UCB 


SOVOMOOOooO 
&£ouo 


; if 


05 3¢ Al «6008-—S—séE;? 
51 00cO C1 00 


BLBC 
MOVW 


D8 AD 3 


OOOOOCOOOODSO 
a a a a a a a ae ee a a a a a a a a a a a al $ 


SN 
SIN NINIOAAAA AOA OO 


ANEW O ODN UE Wi — 
— 
uo“ 
o 


<a 
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$02 500 Got GE fren channel or Govice fone ~SEPTIE82 BSiLSi $3 PRNLVES Racca vOs=00 «= Page 38, vo 


DE 1 3 
Spe 1 ; Ri = desired ucB 
SDE } 3; If the device has an associated mail box and it is ngt spooled, then 
ODE 3; the UCB in the AMB field ‘, he "interne evice. If, however the 
ODE 1 : device is La the Ane f eld ( erm diate devices is the primary 
ape if : device and the final destination devia s the secondary. 
52. 51 00 O9DE 1784 $0$: MOVL Assume primary = secondary 
53 60 My ? 43 if 5 oy tte AMB(R1) ,R3 ¢ Set os oseee totes mail box if any 
05 38 Al El O9E7 17 5 BBC 5 DEVSV. SPL ,UCBSL _DEVCHAR(RID, hos $ "Branch if not spooled 
52 00 444 17 MOVL 3 Spooled dev, primary = AMB = intermed dev 
EF 17 BRB 5 "* 
51 dO a \f : 408: MOVL R3,R1 ; Not spooled, secondary = AMB 
9F4 179 R2 = primary UCB 
ee 1798 | Re = Secondary ucB 
50 FOAD OD 9F4 1795 bos: MOVAL eer -UCB(FP) ,RO ; Address to store primary UCB/VCB 
9 1 9F8 1238 BSBB set & ; Store UCB and VCB 
52 1 #O SFA 179 MOVL 3; Secondary UCB 
4 10 O9FD 1238 BSBB Set UCcB_VCB 3; Store secondary UCB/VCB 
50 sf OFF 179 MOVL #SS$_NORMAL ,RO ; Set success status 
0 a ! 's4 60$: eSB 
. ! .7 -DSABL LSB 
Ad 4 i $ Store UCB and its associated VCB address if any 
ios 
AOS 1 4 : ¥ = UCB address 
“ ! 9} 3 RO = address to store UCB/VCB 
. ! oe : Outputs: 
A 1 ig ; RO RB pres to gout quad word 
A 1814 : R R2 preserved 
A 1815 ; R3 altered 
os ' 18 : 3 other registers preserved 
aos 1 18 ger _UCB_VCB: 
33 D4 OA 181 “CLRL ssume e@ volume not mounted 
04 38 A2, 13 €1 OA0S 1820 BBC S*#DEVSV_MNT UCBSL. DEVCHAR(R ), igs Branch if not mounted 
34 a2 0 OAOA 1821 MOVL UcBSL AVC VCB(R25 ; Get VCB address 
80 5 p A ‘ 1 § 10$: mova ; Store Bcay vee 
an 
At8 1825 END 
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fo le 
WEIWVO0DD0 £0 LUFT DOVONWWIVO GO 


~V—K— BLAS DVDVADOOMVUNVwWie Ow 
SSSSSSSqSSSSSSSSSS SSS OOS SOOM 
OOOoooooooooooocoooocoeo 


4 bo 
=< @ vw oO a a = 
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BVH BOUY WRK Te Ue OF wee WOT TWIT EV ewer OZO-00.— wa. >a. o= 
er? pte ree Ppt Eb bt pee tt bret ftp pt we be tee Oa@urxmnve | = 4 
> IE SVwWwwe = FOO Ne OO ZU OO Saad $$$ tA AE pet ted se oO 
“MOY OOCCOOCO OW WwW ws FTTH IEEE 22204.04.060.46.86 2622 HMMM BrevuzzZgvo - 
BERRERERERERRRRERREERRRRE RRR RRR RRR ERR. eee 
RA Ne fT avcvem 
Lee ce et ce ce ee ee ce ee ec cee ee le oar =>>3V0 
teseeeeececeoecegceoeseeceeseeeeceeceeeeeeeeeseeeeeeeeeeeeeeeeee ee ee tt ce£ 
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rer] & + Sikenme cee eo 2 

= =Saae aa Re =,% 
ww =o w BO Se ax ox oe oe oe wow 
> sua S2- & = ne mee cSaaaaaa : ss" 
r,en03 ce So & e ew SJoCEE Ee PKI wo uae 
lt mOvw— aaeae —~- Or = =z Oo wo etetutprrerergyees M2 2zZa> 
PACE SE Etat tot ttn te ttetetetettts tot satttt tte eee et 
= 4 aSieeeere #2835 QSL TCSCSTNVVWVVMVWKWHKNMWVMNMNKNNNNWVWNNNNOE eee eee 
virvetvertr++v+c+t+r+ne+rr+tvttectvetvreritrercer ceo OOUOOCOCHOCOOCOEUHOES 
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Symbol table , se ste g- een 1382 9¢:13:33 See Tee cee vOvT AR: 1 eee Rie 
DV1_BADPARAM & 02 XESOVI_ MOVE_ITEM RG 
DVI-BIT = Xf DV MULL TEM 33 RG 

DVI" BOOLE R 08 XESOV Re URN_FALSE EO RG 

DVI- COMPLETE R XESOVI-RETURN_ TRUE D7 RG 
DVI-C_ANY = XESDVI_RETURN_ZERO RG 

de 2 XESDVI- VALUE RG 
DVI-C"BOOLEAN = ueeoy VALUE _IN_R4 RG 
DVI-C"CSTRING 2 XESGETCH 0 RG 
DVI-C_DDB 5 uesG TDEV A RG 
DVI-C_DISK = XESGETOVI 4 RG 
DVI_C_NEXTDEVNAM = XESIPID_TO_EPID eeeeeree = 6X 

OVI CORB = XE SANTVER BVI_ASSIST aereeeen =X 
DVI-C"ROOTDEVNAM = XESPROBEW_DSC aeeeeeee § 
DVI-C_RVT Fa EXE_GETDEV 0 $f R 
DVI-C_uCcB 2 EXE GETOVI OR 

DVI-C_ VALUE r F ILBUF 98 R 
DVI-C_VvCcB = FREEBL = FFFFFFES 

DVI-C- VOLCOUNT = 000 HOST_AVAIL 0000918 R 9 
DVI_pbB R 0 HOST~ 0000955 R 
DVI-DECODE _MEDIA_CHAR g HOST E 000097C R 0 
DVI-DO_ITEA 0 a IOCSCVT_DEVNAM eeerereer xX 0 
DVI_ERROR 38 % 10C$GQ_AMOUNTLST eeeeeeee XK 0 
DVI-ERROR_1 8 0 IOCSSEARCHDEV aeeeeeee = X 0 
DVI-EXASTCM 0 q 0 IOCSUNLOCK eeereeee XX 0 
DVI-GET_RVT 0 Bp 8 IOCSVERIFYCHAN aeeeeeee KX 0 
DVI-ITEA_TABLE i R 10SB = 00000014 
DVI-K_PRIVATE 2 0 IOUNLOCK FFFFFFDO 

DVI-K~ SHAREABLE r 98 ITEM_CODE = 00000128 
DVI_NO_RVT ° R 9 ITMLS = FEFFFFFO 
DVI-NUCL_ITEM_1 R JIBSL_MTLFL = 00000000 

OVI NULL ITER .¢ 0 R 0 KRP FFFFFFD 
DVI_NULL_ITEM_ & 8 LCK_FOR O0005SF2 R 02 
DV1_ORB FR LKIS_VALBLK = 0000020 

DVI-RVT i 0 LNMSCOCKR aereneee §6X 03 
VI-STRUCT ® 0 LNMSUNLOCK eeeereeer = X 0 
DVI-S_BYTCNT = LNMBS$T_NAME = 00000011 
DVI-S_DATATYPE = MAX_ITEM CODE = 000 oles 
DVI_S_DEVTYPE s vE ts 2R 02 
DVI-S_OFFSET = MTLS$B_STATUS 2 $08 
~$_POSIT = MTLSL_LOGNAME = 0000001 

DVI_S_SPCLFLG = MTLSL_ = 00000000 
DVI-S-STRUCT = MTLSL_ 2 38 of 

DviI-utB a 0 MTLSV-VOLSET = 

DVI-USE_CHAN R MV_JURP 9 A? R 02 
DVI-USE-DE R NUCAR = 

DVI-VCB-RVT_AQB R OF FVAL = 

DVI-v_BYTCNT = ORBSL_OWNER s 

DVI-V_DATATYPE s ORB$W_PROT = 1 
DVI-V~DEVTYPE = PCBSL_JIB = 8 

DVI-V_OF FSET = PCBSL_PID = 

OVI-V~POSIT = pcosy ASTCNT = 

DVI-V~SPCLFLG = PRS_IPL = 

DVI-V~STRUCT s PRIBUF z 9 

EFN s PRILEN s 

Eaegoof PEt ng ssoansze nc" $2 elnant VER Ht 
EXESDVI—FREEBLOCKS ittiagt RG PSL$S_PRVMOD = 00000002 


< 
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Symbol table seh ' al tg th 20s aang gn 3Ee- 1384 Og :19:93 SYS.SRCISYSGETDVI .MAR: 1 — (4) 
PSLS$V_PRVMOD = 6 SPC_SHDW_SPARE STRING 2 9B R 
_ Soobose8 R 02 SPC-TT_PRYDEVNAM by g R 
RETLEN = FFFFFFDA SPC_VOCNAM g R 
RETLEN_ADR pRpreees | ©6664 © SPC-VOLNUNBER 67 
RVTSB_NVOLS = fs Ss$cAccvIO = G6¢ 
RVTSL_UCBLST = 4 S$S$_BADPARAM s 1 
RVIST VL SLCENAR = 00000018 S$$-BUr FEROVE = 90000601 
RVT- ROOTDEVNAM ° A2 R 03 SSS" EXASTLM = AG 
“VOLCNT 575 R 0 SS$-IVDEVNAM = 00000144 
Baas = Peeeeeey SS$ NORMAL = 00000001 
SAVED_ASTADR aaa STATUS FRFFFFFD8 
AWTYPE = 00000034 SYSSDCLAST aeeaeeee GX 02 
SBST- NODENAME = dponoaed SYSSGETLKIW geeaeeee GX 02 
F = 00014 TTSV_CRFILL = Q000000A 
SeOLEN = 00000010 TT$V_EIGHTBIT = Q0000000F 
SCHSCLREF Reeeeeee x 8 TTSV_ESCAPE = 4 03 
SCHSIOLOCKR rerkkene x TTSV_HALF DU = 00000014 
SCHSIOUNLOCK Rekkeeee x 8 TTSV_HOSTSYNC = 00000004 
SCHSPOSTEF socepess 8 TTSVCLFFILL = 90000008 
SCRATCH_SIZE FFEFFFFDC TT$V_MBXDSABL = 9900019 
SCS$GA_COCALSB tkeeeeee x 02 TTSV_MECHFORM = 0000001 
SECONDARY UCB = FEFFFEES TTSV“RECHTA = 90000008 
SET_uCcB _vtB poDDO ADS R og TT$V_NOBRDCST = 00000011 
spc2 ~ QOOO0S5DA R 2 TT$V_NOECHO = 00000001 
SPC_ACPPID poggas99 R TTSV“NOT YPEAND = 90000002 
SPC"ALT_HOST_AVAIL 00008 R 0 TT$V~PASSALL = 00000000 
SPC_ALT_HOST_NAME 000093D R 0 TTSV_READSYNC s 44 4 93 
SPCCALT HOST CTYPE poggoyes R TTSV-REROTE = 90000000 
SPC“DEVLOCENAR Roan0srg hfe HHSN ECR = 99090006 
SPC-FREEBLOCKS 0007 8 TTSVOWRAP = 99000008 
a = 
SOE HOST AVI 00009 4 R 0 TT SV"ANS R zs 0000018 
SPC_ ST- T 00009 3 R 0 TT $SV=APP KEYPAD = 00 4 
SPC_HOST_ 0 4 DR 0 TT $V"AUTOBA D = 00000001 
SPC-HOST TYPE 2974 2 TYSSV-AVO = 90000018 
SPC_MEDIA_NAME 7D R TT $V -BRDCS TREX s B88 $3 
SPC_MEDiA_TYPE R TT2$V_DCL_MAILBX = 9 
“PID ~ gf R TT $V"DECTRT = 1D 
SPC_REMOTE DEVIC FR TT $V_DECCRT2 = 1E 
SPC_SHDW_CATCHUP_COPY ING 96 R TT $V_DIALUP = OF 
SPC" SHDW-MASTE B TTO$V—~DISCONNECT = 11 
SPC SHDW_MASTER_NAME & TTOSV—DMA = 06 
SPC~SHOW-RERGE COPY 1NG 92 T1BSV-DRCS = 90000013 
SPC" SHDW-SPARE_BIT_1 33 a TTOSV-EDITING 2 C 
SPC" SHDW- SPARE _BIT~2 9. R TT $V~FALLBACK z 5 
SPC~SHDWC SPARE INTEGER. | ag TYSSV-NANGUP : 
SPC" SHDW-SPARE-STRING_T 98 R TT2$V=LOCALECHO z 0 


43 
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SYSGETOVI 
Symbol table 
VCBSL_ 
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ew een eee oes ce ob 


PSECT name Allocation PSECT No. Attributes 

- ABS . 00000000 ( -» 00 ¢ 0.) NOPIC USR CON ABS LCL N 

SABSS FFFFFFF ( -) 1¢ 1.) NOPIC USR CON ABS LCL N 

YFSSSYSGETDVI Q0000A1 ( 2578.) ¢ ( §°} NOPIC USR CON REL LCL N 

YSEXEPAGED 00000019 ¢« 25.) ( 3.) NOPIC USR CON REL LCLN 
Peewee swe sem emon nat emoe ese 
H Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 29 08:80: 00.06 60:00: 1.14 

Command processing 118 00:00: 9-96 00:00: 3-42 

Pass 784 38:80 38 014 Bos 1:53.05 

Sa hevehon seh SBRREES) BEER EG 

Symbol table output 60 00:00:00-45 $0:00; 1:38 

Psect synopsis output 2 00: 288 06 es Bo 4 ‘ 

Cross-reference output 0 Ba bo e9'6 888: 92- 0 

Assembler run totals 1324 00:00:57.05 00:02:34.74 


$j fate was 2550 pages. 

09 bytes (425 pages) of virtual memory were used to buffer the intermediate code. 

There were 150 pages of symbol table space ucing $3. to hold 2749 non-local and 85 local symbols. 
1825 source Lines were read in Pass 1, produc ing object records in Pass 2. 

72 pages of virtual memory were used to define 6 macros. 


The working se 


weer eter meme ee oe eee eee eee ea} 


Macro Library name 


“83 SSUAgE: FSYS OB )3UIB ALB -MLB; 1 


1 
19 
5SSDUA SYSL ISIS TARLET MLB;2 20 
TOTS (all Libraries) 40 


3321 GETS were required to define 40 macros. 


There were no errors, warnings or information messages. 


v04-0C Page 44 
SGET DVI.MAR;1 (19) 


NOWRT NOVEC BYTE 


WRT NOVEC BYTE 


MACRO/LIS=LIS$:SYSGETDVI/0BJ=OBJ$:SYSGETDVI MSRC$:SYSGETDVI/UPDATE=(ENHS$: SYSGETDVI) +EXECMLS$/LIB+SYS$LIBRARY : SYSBLDMLB/LIB 
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